字符串与16进制互转

1. //字符串转为16进制
2. function StrToHex(AStr: String): String;
3. var
4.   i : Integer;
5. begin
6.   Result := '';
7.   for i := 1 to Length(AStr) do
8.     Result := Result + IntToHex(ord(AStr[i]), 2);
9. end;
10. //16进制转为字符串
11. function HexToStr(AHex: String): String;
12. var
13.   i : Integer;
14. begin
15.   Result := '';
16.   for i := 1 to Length(AHex) div 2 do
17.     Result := Result + chr(StrToInt('$' + copy(AHex, i * 2 - 1, 2)));
18. end;