Dica Delphi – Convertendo valor Hexadecimal para Inteiro

function HexToInt(const HexStr: string): longint;
var
x: integer;
cTmp: Char;
begin
Result := 0;
for x := 1 to Length(HexStr) do
begin
cTmp := HexStr[x];
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;

Anúncios

3 respostas em “Dica Delphi – Convertendo valor Hexadecimal para Inteiro

  1. Cara , estava com um problema a dois dias para manipular valores em hexa , mas olhando sua dica a resposta veio na hora , valeu muito !
    Preciso parar de programar programar mais com o cerebro do que com o mouse .

Deixe um comentário

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s