Converter e desconverter valor Hexa-decimal

Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Para efetuar o download você precisa estar logado. Clique aqui para efetuar o login
Confirmar voto
0
 (0)  (0)

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.

 
Você precisa estar logado para dar um feedback. Clique aqui para efetuar o login
Receba nossas novidades
Ficou com alguma dúvida?