Fórum CÓDIGO ASCII #223838
01/04/2004
0
COMO FAÇO PARA DESCOBRIR O CÓDIGO ASCII DE UMA LETRA:
Ex:
Gostaria de saber o código ascii da letra A
Grato
Ex:
Gostaria de saber o código ascii da letra A
Grato
Guilherme B
Curtir tópico
+ 0
Responder
Posts
01/04/2004
Spooner
Tente assim,
65
Caso queira o programinha que gera as os codigos ASCII coloque seu e-mail que te envio. :wink:
65
Caso queira o programinha que gera as os codigos ASCII coloque seu e-mail que te envio. :wink:
Responder
Gostei + 0
01/04/2004
Jpaulorio
dá uma olhada em www.asciitable.com , abraço
Responder
Gostei + 0
01/04/2004
Marco Salles
Coloque Dois Edits Num Form....Declare Uma Variável Achou Na secção
implementation
var
Achou:Boolean;
Escreva o Nos Evento OnKeyPress, OnKeyDown,OnkeyUp Do Edit1 Os Códigos Abaixo:
É Apenas Para Dar Uma Visão....
implementation
var
Achou:Boolean;
Escreva o Nos Evento OnKeyPress, OnKeyDown,OnkeyUp Do Edit1 Os Códigos Abaixo:
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char); begin Edit2.Text:=IntToStr(ord(char(Key))); Edit1.Text:=´´; Achou:=True; end; procedure TForm1.Edit1KeyUp(Sender: TObject; var Key: Word; Shift: TShiftState); begin if not Achou Then Edit2.Text:=IntToStr(Ord(Key)); end; procedure TForm1.Edit1KeyDown(Sender: TObject; var Key: Word; Shift: TShiftState); begin Achou:=False; end;
É Apenas Para Dar Uma Visão....
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)