Delphi IntToHex 查看字符的十六进制值

本文整理自网络，侵删。

 
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 简单的日志记录

为Delphi的控制台程式添加公司信息、版权信息

Delphi xe5 android手机端转换ansi字符串

Delphi判断某个程序是否已经启动

Delphi 获取文件大小根据显示gb mb kb b

Delphi 10.4 freeandnil 问题

webbrower常见问题及解决方法

Delphi输入字符与tlistbox项目匹配

Delphi ticon保存ico文件时失真的解决办法

Delphi 使用int3进行hook处理

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

转载请注明出处：木庄网络博客 » Delphi IntToHex 查看字符的十六进制值