Converter char para Ascii

Delphi

12/03/2004

Olá pessoal,

preciso transformar um char em código ascii mas não encontrei função para isso, alguém tem alguma idéia??

Agradecido


Anisio

Anisio

Curtidas 0

Respostas

Marcelo

Marcelo

12/03/2004

Olha colega, voce pode fazer da seguinte forma:

1º - No evento KeyPress do form, digite o seguinte:
var
 i : Integer;
begin
  i := Key;
  ShowMessage( IntToStr( i ));
end;


2º - Coloque um Edit no form.
3º - Mude a propriedade ´KeyPreview´ do form para ´True´.

Ao executar a aplicação, digite algo no Edit, que surgirá uma mensagem com o código correspondente ao valor digitado!
Valeu?


GOSTEI 0
Anisio

Anisio

12/03/2004

valeu cara, mas pra mim naum deu certo.. :(
uso Delphi 5, naum sei se é por isso, mas o i (integer) não pode receber um char...


GOSTEI 0
Denis

Denis

12/03/2004

Showmessage(´Código asc de c é :´+IntToStr(Ord(´c´)));

ou do char que vc. colocar dentro da função ord.


GOSTEI 0
Marcelo

Marcelo

12/03/2004

valeu cara, mas pra mim naum deu certo.. :( uso Delphi 5, naum sei se é por isso, mas o i (integer) não pode receber um char...


Colega, eu fiz o exemplo em Builder, pois aki nao tenho o Delphi intalado!

Tente fazendo conversões do tipo: i := StrToInt( Key );

Valeu?


GOSTEI 0
Anisio

Anisio

12/03/2004

obrigado a todos,
questão resolvida.


GOSTEI 0
POSTAR