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》频道 >>



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...