admin

[系统应用] 十六进制数据转ASCII字符串

function 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;


#1楼
发帖时间:2月前   |   查看数:0   |   回复数:0
游客组