五维思考

学习要加,骄傲要减,机会要乘,懒惰要除。 http://www.5dthink.cn

  博客园 :: 首页 :: 博问 :: 闪存 :: 新随笔 :: 联系 :: 订阅 订阅 :: 管理 ::
  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 - 12)));
  18. end;
posted on 2008-09-25 11:37  五维思考  阅读(287)  评论(0编辑  收藏  举报

QQ群:1. 全栈码农【346906288】2. VBA/VSTO【2660245】