ascii字符串到十六进制字符串格式.txt

来自「常见的几种数据格式转换,例如16进制字符串转化为16进制字节数组」· 文本 代码 · 共 21 行

function ASCIIStrToHexStr(Str: string): string;
var
  I: Integer;
  S: string;
  Value: Integer;
begin
  if Length(Str) < 2 then
  begin
    Result := '';
    Exit;
  end;

  S := '';
  for I := 1 to (Length(Str) div 2) do
  begin
    Value := SToI(Str[I * 2 - 1]) * 16 + SToI(Str[I * 2]);
    S := S + chr(Value);
  end;

  Result := S;
end;