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之autorun(复制自身+循环扫描)

Delphixe4 版本中，已针对移动平台 引入了 arc 模型

Delphi 为当前窗口客户区捉图: getformimage

Delphi xe5读取android imei id

Delphi 之 tpagecontrol组件

Delphi 使用钩子函数建立一个全局的鼠标钩子

Delphi 回车符 换行符

Delphi 合并动态数组

Delphi tstrings类的一些技巧

Delphi图像细化处理

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

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