fbpx

Converte um valor Hexadecimal em Integer

Função que converte um valor Hexadecimal em Integer em Delphi

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];
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;
end;
end;

Compartilhe esta matéria
  , ,


Deixe uma resposta

O seu endereço de e-mail não será publicado. Campos obrigatórios são marcados com *

Esse site utiliza o Akismet para reduzir spam. Aprenda como seus dados de comentários são processados.