Delphi 字串转16进制

本文整理自网络，侵删。

 
function myStrToHex(s:string):string; //字串转16进制   
var  
  TmpStr:string;  
  i:integer;  
begin  
  TmpStr:='';  
  for i:=1 to Length(s)do  
    TmpStr:=TmpStr+IntToHex(ord(s[i]),2);  
  Result:=TmpStr;  
end;  
  
function myHexToStr(S:string):string; //16进制转字串   
var  
  HexS,TmpStr:string;  
  i:Integer;  
  a:Byte;  
begin  
  HexS:=s;  
  if Length(HexS) mod 2=1 then  
    HexS:=HexS+'0';  
  TmpStr:='';  
  for i:=1 to(Length(HexS)div 2)do  
  begin  
    a:=StrToInt('$'+HexS[2*i-1]+HexS[2*i]);  
    TmpStr:=TmpStr+Chr(a);  
  end;  
  Result:=TmpStr;  
end;

 

相关阅读 >>

Delphi idhttp post json 上传 php 接收

Delphi 能否把.txt文件的数据导入到access数据库中

Delphi 让scrollbox响应鼠标的滚动消息

Delphi firemonkey的屏幕分辨率hdpi、mdpi、ldpi的差别

Delphi 实现检测线程类tthread是否结束

Delphi 农历源码

Delphi读取一个access数据库中的表名

Delphi 切换开关 toggleswitch1

Delphi shellexecute调用系统命令关闭计算机

Delphi获取flash文件的影片时长,原始尺寸,帧数等信息

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi 字串转16进制