Converter números inteiros para hexadecimais
Saudações,
alguém poderia me mostrar um exemplo de conversão de números inteiros para hexadecimais utilizando a função InttoHex? É que eu não sei usar essa função. Por favor se alguém souber pode mandar um exemplo pra mim...tipo recebendo o valor inteiro de um edit e exibindo em outro edit o mesmo valor em hexadecimal. Muito obrigado
alguém poderia me mostrar um exemplo de conversão de números inteiros para hexadecimais utilizando a função InttoHex? É que eu não sei usar essa função. Por favor se alguém souber pode mandar um exemplo pra mim...tipo recebendo o valor inteiro de um edit e exibindo em outro edit o mesmo valor em hexadecimal. Muito obrigado
Elias Jr
Curtidas 0
Respostas
Carnette
05/08/2003
function IntToHex(Value: Integer; Digits: Integer): string;
Converte o inteiro Value num Hexadecimal (Base 16). Digits indica o número mínimo de dígitos Hexa a serem retornados
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := IntToHex(StrToInt(Edit1.Text), 6);
end
Converte o inteiro Value num Hexadecimal (Base 16). Digits indica o número mínimo de dígitos Hexa a serem retornados
procedure TForm1.Button1Click(Sender: TObject);
begin
Edit2.Text := IntToHex(StrToInt(Edit1.Text), 6);
end
GOSTEI 0
Nildo
05/08/2003
Use
Edit2.Text := IntToHex(StrToInt(Edit1.Text),);
Com 2 digitos eh mais comum de se ver
Edit2.Text := IntToHex(StrToInt(Edit1.Text),
2
Com 2 digitos eh mais comum de se ver
GOSTEI 0