delphi Hex --> String

本文整理自网络，侵删。

 
procedure TForm1.Button2Click(Sender: TObject);
const Source: string = '4D 5A';

var S: string;

t: Integer;

begin

with TStringList.Create do

try

   Text := StringReplace(Source, #32, #13#10, [rfReplaceAll]);

   S := '';

   for t := 0 to Count - 1 do

     S := S + Chr(StrToInt('$' + Strings[t]));

   ShowMessage(S);

finally

   Free;

end;

end;
 

相关阅读 >>

Delphi 如何获取进程的全路径名

Delphi xe httpencode

Delphi简单加密解密

Delphi android adb usb上读取设备信息

Delphi中combobox.items.indexof用法

Delphi 读取全网站链接

Delphi计算md5

Delphi 之 标签组件(tlabel组件)

Delphi中使用android振动

Delphi xe10 传感器操作

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

转载请注明出处：木庄网络博客 » delphi Hex --> String