本文整理自网络,侵删。
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 利用unigui中的tunipagecontrol实现多页面
Delphi 用webbrowser给要访问的页面加上referer(来路)参数
Delphi extractfileext() 获取文件后缀的函数
更多相关阅读请进入《Delphi》频道 >>