delphi中字符串和16进制数据之间怎么转换

试试下面代码: function str2dex(src:string):string；var des: string; i: integer; begin des := ''; for i := 1 to Length(src) do begin des := des + IntToHex(Ord(src[i]),2) + ' ' ; end;