Converter char para Ascii
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
preciso transformar um char em código ascii mas não encontrei função para isso, alguém tem alguma idéia??
Agradecido
Anisio
Curtidas 0
Respostas
Marcelo
12/03/2004
Olha colega, voce pode fazer da seguinte forma:
1º - No evento KeyPress do form, digite o seguinte:
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?
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
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...
uso Delphi 5, naum sei se é por isso, mas o i (integer) não pode receber um char...
GOSTEI 0
Denis
12/03/2004
Showmessage(´Código asc de c é :´+IntToStr(Ord(´c´)));
ou do char que vc. colocar dentro da função ord.
ou do char que vc. colocar dentro da função ord.
GOSTEI 0
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
12/03/2004
obrigado a todos,
questão resolvida.
questão resolvida.
GOSTEI 0