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 2009 泛型容器单元(generics.collections)[3]: tstack<t>

Delphi 遍历某字段并插入到combobox

Delphi中如何用一个按钮控制开与关两个状态

Delphi下程序内存泄露报告

Delphi opendialog使用方法

Delphi tdictionary 泛型如何排序

Delphi中怎么取出字符串中单个char

Delphi mscomm1自动获取串口

Delphi tidhttp+tidssliohandlersocket+ssl

Delphi线程中动态创建ado控件

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

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