博客
关于我
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/

你可能感兴趣的文章
mysql 的存储引擎介绍
查看>>
MySQL 的存储引擎有哪些?为什么常用InnoDB?
查看>>
mysql 索引
查看>>
MySQL 索引失效的 15 种场景!
查看>>
MySQL 索引深入解析及优化策略
查看>>
MySQL 索引的面试题总结
查看>>
mysql 索引类型以及创建
查看>>
MySQL 索引连环问题,你能答对几个?
查看>>
Mysql 索引问题集锦
查看>>
Mysql 纵表转换为横表
查看>>
mysql 编译安装 window篇
查看>>
mysql 网络目录_联机目录数据库
查看>>
MySQL 聚簇索引&&二级索引&&辅助索引
查看>>
Mysql 脏页 脏读 脏数据
查看>>
mysql 自增id和UUID做主键性能分析,及最优方案
查看>>
Mysql 自定义函数
查看>>
mysql 行转列 列转行
查看>>
Mysql 表分区
查看>>
mysql 表的操作
查看>>
mysql 视图,视图更新删除
查看>>