本文整理自网络,侵删。
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 跨平台的,在fmx中读取icon文件的每一帧到bitmap
Delphi dbnavigator1 删除时弹出确认对话框
Delphi 取得开机时间 开机时间总长度(可精确到秒,分钟等)
更多相关阅读请进入《Delphi》频道 >>