delphi 16进制字符串转原字符串

本文整理自网络，侵删。

 
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;
 

相关阅读 >>

Delphi 判断时间是否合法 -isvaliddatetime、isvaliddate、isvalidtime、isvaliddateday

Delphi android gps服务

Delphi编程时按回车键无效，无法换行解决办法

在 Delphi 中调用 javascript

Delphi 10.3.1新的变量的声明方法

Delphi xe2 - 万一“获取程序自身大小的函数”改进版

Delphi 校验手机号及身份证号

Delphi7 写过卡巴主动防御服务端

Delphi使用edge browser浏览器组件

Delphi xe8 androdi利用httpclient实现的一个app自动更新组件

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

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