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
case rgOpcao.ItemIndex of
0 : ShowMessage(IntToStr(StrToInt('%' + edValor.Text)));
1 : ShowMessage(IntToHex(StrToInt(edValor.Text), 8));
Lembrando que a primeira opção converte o numero inteiro para HEXADECIMAL e a segunda converte um numero HEXADECIMAL para inteiro.