delphi 极速字符串替换函数字符串转16进制

//字符串转16进制
function StrToHex(src:string): string;
var
  i: integer;
  des: string;
begin
   des := '';
   for i := 1 to Length(src) do
   begin
     des := des + IntToHex(Ord(src[i]),2) + ' ';
   end;
   Result := des;

end;

字符串转16进制，其它平台结果相同

//经测试，以下代码任意平台测试结果相同

function StrToHex2(AStr: string): string;

var

Idx: Cardinal;

begin

Result:='';

for Idx := Low(AStr)to High(AStr)do begin

Result:= Result + IntToHex(Ord(AStr[Idx]), 4);

end;

// 调用

procedure TForm1.Button1Click(Sender: TObject);

begin

Showmessage(StrToHex2('你好中国'));

end;

推荐分享