delphi HexToInt

function HexToInt(const HexStr: string): LongInt;

var

iNdx: integer;

cTmp: Char;

begin

Result := 0;

for iNdx := 1 to Length(HexStr) do begin

cTmp := HexStr[iNdx]; // 字符串string内存中的第一位是length标识

case cTmp of

'0'..'9': Result := 16 * Result + (Ord(cTmp) - $30);

'A'..'F': Result := 16 * Result + (Ord(cTmp) - $37);

'a'..'f': Result := 16 * Result + (Ord(cTmp) - $57);

else

raise EConvertError.Create('Illegal character in hex string');

end;

推荐分享