本文整理自网络,侵删。
procedure TForm1.Button1Click(Sender: TObject);var i: Integer;begin Label1.Caption := ''; for i := 1 to Length(Edit1.Text) do begin try Label1.Caption := Label1.Caption + SysUtils.IntToHex(Byte(Edit1.Text[i]),2) + ' '; except Beep; end; end;end;
相关阅读 >>
Delphi firemonkey的屏幕分辨率hdpi、mdpi、ldpi的差别
Delphi xe8在firemonkey tlistbox中显示图像
Delphi makeuniquefilename 创建文件名如果已经存在自动更改文件名
更多相关阅读请进入《Delphi》频道 >>