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.