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自动以管理员身份在vista 和 windows7 下运行程序

Delphi 让scrollbox响应鼠标滚轮事件

Delphi 获取任意月份总共有多少天数

Delphi删除文件夹

两种方法用Delphi实现域名转ip地址---用nmhttp控件和winsock

Delphi tfdquery提交tfdmemtable修改的数据

Delphi 判断尾串是否匹配,不分大小写

Delphi 从其它access数据导入数据到本地数据库

Delphi转换 tcolor 到 html 颜色串

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

转载请注明出处：木庄网络博客 » Delphi 取16进制字符的10进制的integer值