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 10.3.1 android沉浸式透明状态栏

Delphi xp 之后, Delphi 动注册表不方便了...逼出来一个办法:

Delphi 仿dbnavigator方式

Delphi 注册表管理

Delphi 在减少占用资源的情况下，等待msecs毫秒

Delphi10.3构造一个json数据的第三种方法，并格式化输出

Delphi获取进程快照(snapshot)

Delphi 2009 之 tballoonhint

Delphi 正则表达式起步

Delphi 调用外部程序并等待其运行结束

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

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