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;

//*********************取16进制字符的10进制的integer值**************

推荐分享