博客
关于我
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自增假数据
查看>>
Mysql 报错 Field 'id' doesn't have a default value
查看>>
MySQL 报错:Duplicate entry 'xxx' for key 'UNIQ_XXXX'
查看>>
mysql 排序id_mysql如何按特定id排序
查看>>
Mysql 提示:Communication link failure
查看>>
mysql 插入是否成功_PDO mysql:如何知道插入是否成功
查看>>
Mysql 数据库InnoDB存储引擎中主要组件的刷新清理条件:脏页、RedoLog重做日志、Insert Buffer或ChangeBuffer、Undo Log
查看>>
mysql 数据库备份及ibdata1的瘦身
查看>>
MySQL 数据库备份种类以及常用备份工具汇总
查看>>
mysql 数据库存储引擎怎么选择?快来看看性能测试吧
查看>>
MySQL 数据库操作指南:学习如何使用 Python 进行增删改查操作
查看>>
MySQL 数据库的高可用性分析
查看>>
Mysql 数据库重置ID排序
查看>>
Mysql 数据类型一日期
查看>>
MySQL 数据类型和属性
查看>>
mysql 敲错命令 想取消怎么办?
查看>>
Mysql 整形列的字节与存储范围
查看>>
mysql 断电数据损坏,无法启动
查看>>
MySQL 日期时间类型的选择
查看>>
Mysql 时间操作(当天,昨天,7天,30天,半年,全年,季度)
查看>>