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 [数据库连接字符串] access 连接字符串

Delphi adoconnection1连接mssql数据库方法

Delphi 验证ip地址

Delphi中txmldocument控件的用法

Delphi结构,字符串和指针

Delphi 拷贝文件夹内所有内容

Delphi 递归获取文件夹大小

Delphi命令行窗口实现9*9乘法表

Delphi memo 的当前行、当前列与当前字符

Delphi 不可移动的窗体

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



打赏

取消

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

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

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

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

评论

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