Converter e desconverter valor Hexa-decimal

Nesse artigo vou mostrar um exemplo simples para converter um valor para hexadecimal, e desconverter um valor hexadecimal.

Olá pessoal hoje vou mostrar como converter e "desconverter" valor Hexa-decimal com o Delphi. Muitas vezes ficamos nos perguntando como converter um string para inteiro, um real para string, dai temos as funções IntToStr e FloatToStr, respectivamente agora vamos ver a função IntToHex, e ver como ela se comporta numa aplicação, vamos lá.

Crie um projeto no Delphi, e insira nele os seguintes componentes, e mude seus nomes conforme abaixo :

|Componentes | Nome       | Texto       |
|Edit1             |edValor      |                |
|Button1         |btConverte | Converte  |
|RadioGruop1 |rgOpcao      | Opção      |

Veja um exemplo de como ficaria a tela :



No botão Converte, de um duplo click nele e insira o seguinte código :

if (Trim(edValor.Text) <> '') then begin case rgOpcao.ItemIndex of 0 : ShowMessage(IntToStr(StrToInt('%' + edValor.Text))); 1 : ShowMessage(IntToHex(StrToInt(edValor.Text), 8)); end; end;

Lembrando que a primeira opção converte o numero inteiro para HEXADECIMAL e a segunda converte um numero HEXADECIMAL para inteiro.

Desde já agradeço a atenção e até a próxima.

Ebook exclusivo
Dê um upgrade no início da sua jornada. Crie sua conta grátis e baixe o e-book

Artigos relacionados