RSS订阅 | 匿名投稿
您的位置:网站首页 > 基础 > 正文

delphi Hex --> String

作者:admin 来源: 日期:2018/2/15 17:28:47 人气: 标签:

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;

读完这篇文章后,您心情如何?
0
0
0
0
0
0
0
0
本文网址:
上一篇:delphi Char String
下一篇:没有资料