博客
关于我
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中怎样使用case-when实现判断查询结果返回
查看>>
Mysql中怎样使用update更新某列的数据减去指定值
查看>>
Mysql中怎样设置指定ip远程访问连接
查看>>
mysql中数据表的基本操作很难嘛,由这个实验来带你从头走一遍
查看>>
Mysql中文乱码问题完美解决方案
查看>>
mysql中的 +号 和 CONCAT(str1,str2,...)
查看>>
Mysql中的 IFNULL 函数的详解
查看>>
mysql中的collate关键字是什么意思?
查看>>
MySql中的concat()相关函数
查看>>
mysql中的concat函数,concat_ws函数,concat_group函数之间的区别
查看>>
MySQL中的count函数
查看>>
MySQL中的DB、DBMS、SQL
查看>>
MySQL中的DECIMAL类型:MYSQL_TYPE_DECIMAL与MYSQL_TYPE_NEWDECIMAL详解
查看>>
MySQL中的GROUP_CONCAT()函数详解与实战应用
查看>>
MySQL中的IO问题分析与优化
查看>>
MySQL中的ON DUPLICATE KEY UPDATE详解与应用
查看>>
mysql中的rbs,SharePoint RBS:即使启用了RBS,内容数据库也在不断增长
查看>>
mysql中的undo log、redo log 、binlog大致概要
查看>>
Mysql中的using
查看>>
MySQL中的关键字深入比较:UNION vs UNION ALL
查看>>