本文整理自网络,侵删。
(*********************取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》频道 >>