博客
关于我
Delphi十六进制字符串转换十进制32位整数
阅读量:278 次
发布时间:2019-03-01

本文共 1142 字,大约阅读时间需要 3 分钟。

Delphi 自带函数 IntToHex

功能说明:该函数用于将“十进制”转换成“十六进制”。该函数有二个参数。第一个参数为要转换的十进制数据,第二个参数是指定使用多少位来显示十六进制数据。

参考实例:

  Edit1.Text := IntToHex('100', 2);
  执行结果,Edit1.Text等于64。

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没有提供专门的“十六进制”转换为“十进制”的函数。使用StrToInt函数可以实现这个功能。具体代码是:I := StrToInt('$' + '64'); 这时I等于100。也就是在加上一个'$'即可将“十六进制”转换为“十进制”。

procedure TForm1.Button1Click(Sender: TObject);var  I: Integer;  J: Integer;begin  I := StrToInt(Edit1.Text);  J := StrToInt(Edit2.Text);  ShowMessage(IntToStr(I + J));end;

// 十进制转十六进制

var
    i: integer;
   str: string;
begin
    i := 255;
    ShowMessage(IntToHex(I, 2));   //FF   2表示返回的位数 
// 另外,Formart也有把十进制用十六进制输出的功能
   str := Format('%.2x', [i]);
   ShowMessage(str);              // FF  返回结果跟IntToStr()函数想一样
end;
delphi没有提供十六进制转成十进制的函数,但我们可以在十进制前面加一个十六进制符号'$',再用StrToInt()转换
var
    str: string;
    int: integer;
begin
    Str := 'FF';
    int := StrToInt('$' + str); 
    ShowMessage(IntToStr(int)); //255
end;

转载地址:http://dsro.baihongyu.com/

你可能感兴趣的文章
LiveGBS user/save 逻辑缺陷漏洞复现(CNVD-2023-72138)
查看>>
localhost:5000在MacOS V12(蒙特利)中不可用
查看>>
mac mysql 进程_Mac平台下启动MySQL到完全终止MySQL----终端八步走
查看>>
Mac OS 12.0.1 如何安装柯美287打印机驱动,刷卡打印
查看>>
MangoDB4.0版本的安装与配置
查看>>
Manjaro 24.1 “Xahea” 发布!具有 KDE Plasma 6.1.5、GNOME 46 和最新的内核增强功能
查看>>
mapping文件目录生成修改
查看>>
MapReduce程序依赖的jar包
查看>>
mariadb multi-source replication(mariadb多主复制)
查看>>
MaterialForm对tab页进行隐藏
查看>>
Member var and Static var.
查看>>
memcached高速缓存学习笔记001---memcached介绍和安装以及基本使用
查看>>
memcached高速缓存学习笔记003---利用JAVA程序操作memcached crud操作
查看>>
Memcached:Node.js 高性能缓存解决方案
查看>>
memcache、redis原理对比
查看>>
memset初始化高维数组为-1/0
查看>>
Metasploit CGI网关接口渗透测试实战
查看>>
Metasploit Web服务器渗透测试实战
查看>>
Moment.js常见用法总结
查看>>
MongoDB出现Error parsing command line: unrecognised option ‘--fork‘ 的解决方法
查看>>