Delphi 取16进制字符的10进制的integer值


本文整理自网络,侵删。

 
(*********************取16进制字符的10进制的integer值*******************)
function HexToInt(HexStr:String):Integer;
var
  i,TempInt,LocalInt:Integer;
begin
  HexStr:=UpperCase(HexStr);
 
  LocalInt:=1;
  Result:=0;
  for i:=Length(HexStr) downto 1 do
  begin
    if HexStr[i] in ['0'..'9'] then
      TempInt:=StrToInt(HexStr[i])
    else
      TempInt:=Ord(HexStr[i])-Ord('A')+10;
 
    if i=Length(HexStr) then
      LocalInt:=1
    else
      LocalInt:=LocalInt*16;
 
    Result:=Result+TempInt*LocalInt;
  end;
end;
//*********************取16进制字符的10进制的integer值**************

相关阅读 >>

Delphi打开外部程序或文件

Delphi fmx 安卓跳转到支付宝付款页面

Delphi xe开发 android 开机自动启动

Delphi Delphi写的一个上位机

Delphi学习之资源文件dll的制作及使用

Delphi txt编码互转 ansi utf-8

Delphi 字符串查找函数

Delphi 比较版本号

Delphi 检测判断字符串是否包含有中文字符

Delphi xe6 读取android设备联系人

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...