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整理四（程序控制结构）

Delphi 如何把类中的方法做参数

Delphi winapi: getwindowrect、getclientrect - 获取窗口的外部与内部矩形

Delphi xe5 android在桌面添加快捷方式

Delphi 根据窗口类判断程序是否运行

Delphi 检测是否包含字符

Delphi程序在win7 win8 win10下自动请求以管理员身份运行

Delphi d10.x 在安卓app开发中使用jar包的注意事项

Delphi通过解析搜狐网页来获取天气的函数

Delphi 提升进程权限到sedebugprivilege

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

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