delphi HexToInt32

function HexToInt32(const aHex: string ):Integer;

var

I,L,K: Integer;

begin

Result := 0 ;

if aHex ='' then

begin

Exit;

end

else

begin

K := 0;

L := Length(aHex);

for I:=1 to L do

begin

if (not(aHex[I] in['A'..'F'])) and (not(aHex[I] in['a'..'f'])) then

K := K + Trunc(StrToInt(aHex[I]) * Power(16, L-I))

else case aHex[I] of

'a', 'A' : K := K + Trunc(10 * Power(16, L-I));

'b', 'B' : K := K + Trunc(11 * Power(16, L-I));

'c', 'C' : K := K + Trunc(12 * Power(16, L-I));

'd', 'D' : K := K + Trunc(13 * Power(16, L-I));

'e', 'E' : K := K + Trunc(14 * Power(16, L-I));

'f', 'F' : K := K + Trunc(15 * Power(16, L-I));

end;

Result := k;

end;

推荐分享