Colocar um Hexadecimal dentro de um byte

Delphi

26/11/2004

alguém sabe como posso colocar um valor em hexadecimal q está dentro de um tedit por exemplo 30 e colocar esse mesmo 30 dentro de uma variável do tipo byte.


muito obrigado.


Tap_pedroso

Tap_pedroso

Curtidas 0

Respostas

Nildo

Nildo

26/11/2004

var
   Valor: Byte;
begin
   Valor := StrToInt( ´$´ + Edit1.text );
   Showmessage( ´Valor da variavel em hexadecimal: ´ + IntToHex( Valor, 2 ) + #1310 + ´Valor em decimal: ´ + Inttostr( Valor ) );
end;



GOSTEI 0
Tap_pedroso

Tap_pedroso

26/11/2004

nildo repodeu: var Valor: Byte; begin Valor := StrToInt( ´$´ + Edit1.text ); Showmessage( ´Valor da variavel em hexadecimal: ´ + IntToHex( Valor, 2 ) + #1310 + ´Valor em decimal: ´ + Inttostr( Valor ) ); end;


quando se coloca [b:35f495287a]Valor := StrToInt( ´$´ + Edit1.text );[/b:35f495287a] a variável valor q é do tipo byte vira um valor decimal por exemplo:

Valor := StrToInt( ´$´ + Edit1.text{se no edit for digitado 30 a variavel valor passa a ser 48 e eu preciso q a variavel valor seja o mesmo 30 q digitei no edit} );

obrigado.


GOSTEI 0
Nildo

Nildo

26/11/2004

No Edit não vai ser digitado um valor Hexadecimal? Você não quer jogar o valor numérico desse edit, na váriavel?

30hex = 48

Logo, sua variavel fica com o valor 48. Mas se você quiser que sua variavel Byte seja apenas 30 (decimais), então apenas use o StrToInt( Edit1.text );


GOSTEI 0
POSTAR