//字符串转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进制
原文：http://my.oschina.net/u/582827/blog/515221
