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 xe8安卓下汉字转gb2312 urlencode代码

Delphi 从url地址中获得文件名

Delphi(更改图标)

Delphi 生成二维码图形

Delphi 获得指定进程的id号

Delphi 鼠标跟随代码

Delphi 合并两个 wav 文件流的函数

Delphi 网址链接提取域名

Delphi dbgrideh footer的设置和使用

Delphi 截图函数screenshot

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

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