descobrir codigo ascii da tecla

Question

como descobrir codigo ascii das teclas ou melhor das letras em delphi... tipo informo um caracter em um edit e no outro retorna o codigo asciitipo informo R e � retornado 82...

Renan · Answer

{ - Coloque um Label no form (Label1);

- Mude a propriedade KeyPreview do form para true;

- Altere o evento OnKeyDown do form como abaixo: }

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
Label1.Caption :=
Format(�O c�digo da tecla pressionada �: �d�, [Key]);
end;
Observa��es

Para testar execute e observe o Label enquanto pressiona as teclas desejadas.

qualquer duvida me mande um email

renan@inforplay.com.br

---------------------------
uma simples dica pode ser uma grande resposta

Marconi · Answer

Sei que n�o � a sua pergunta, mas s� para complementar

Existe tambem a fun��o Ord() que retorna o valor em Inteiro;
Exemplo:
ShowMessage(Intotostr(Ord(�A�)); // vai resultar 65

Para utilizar Ord com variaveis transforme-as em pchar
exemplo:
varivavel := �B�;
ShowMessage(Intotostr(Ord(Pchar(variavel)))); // vai resultar 66

Marconi

Lucas Silva · Answer

j� fiz um programinha com este c�digo do renan ai, e n�o deu certo p/ todas as teclas.

Depois da sua implementa��o ai, d� uma coferida no resultado p/ ver se bate com a tabela ascii mesmo.

F�rum descobrir codigo ascii da tecla #217693