DELPHI 字符转16进制、16进制转字符

本文整理自网络，侵删。

 
function TForm1.myStrToHex(s:string):string; //字串转16进制
var
    TmpStr:string;
    i:integer;
begin
    TmpStr:='';
    for i:=1 to Length(s)do
    begin
        TmpStr:=TmpStr+IntToHex(ord(s[i]),2);
    end;
    Result:=TmpStr;
end;

 

function TForm1.myHexToStr(s:string):string; //16进制转字串
var
    HexS,TmpStr:string;
    i:Integer;
    a:Byte;
begin
    HexS:=s;
    if Length(HexS) mod 2=1 then
    begin
        HexS:=HexS+'0';
    end;
    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;

 

摘抄自http://blog.csdn.net/chinazhd/article/details/7578412
 

相关阅读 >>

Delphi中messagebox的用法

Delphi 查看字符串在不同编码(ascii、unicode、utf7、utf8、default、bigendianunicode)下的 hex

Delphi 两个非常有用的进程函数

Delphi 如何确定活动桌面是否已启用

Delphi webbroker 制作网站

Delphi从字符串中取出数字

Delphi 模仿qq截图

Delphi webbrowser中获取input表单值

Delphi win10系统已管理员的权限运行应用程序

Delphi 资源文件管理 resources and images

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

转载请注明出处：木庄网络博客 » DELPHI 字符转16进制、16进制转字符