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中webbrowser问题集锦

Delphi与进程、窗口句柄、文件属性、程序运行状态

Delphi webbrowser通过遍历id查找元素是否存在

Delphi实现win10下Delphi 10.3.1 inline hook 修改mac网卡地址之getadaptersaddresses

Delphi 取 utc/tfiletime 时间

Delphi 变体数组

Delphi fmx 同时使用longtap和tap

Delphi 7 编写一个ie右键菜单项目：自动保存图片

Delphi 关闭sql server 数据库所有使用连接

Delphi初级教程之Delphi断点调试

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

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