科技幼儿园招生简章:字符串与16进制互转

来源:百度文库 编辑:中财网 时间:2024/04/29 13:41:07

字符串与16进制互转

分类: Delphi 2008-09-25 11:37 257人阅读 评论(0) 收藏 举报
  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;