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 xe 中使用正则表达式

Delphi版 随机窗口类名

Delphi 缩放图形打印输出

Delphi xe 获取android 系统版本

Delphi blockread和blockwrite读写文件

Delphi combobox 下拉事件

Delphi直接插入法排序示例

Delphi 用Delphi提升进程权限为debug权限

Delphi 删除internet临时文件

Delphi 判断是否为文件名

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

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