CÓDIGO ASCII

Delphi

01/04/2004

COMO FAÇO PARA DESCOBRIR O CÓDIGO ASCII DE UMA LETRA:

Ex:

Gostaria de saber o código ascii da letra A

Grato


Guilherme B

Guilherme B

Curtidas 0

Respostas

Spooner

Spooner

01/04/2004

Tente assim,

65

Caso queira o programinha que gera as os codigos ASCII coloque seu e-mail que te envio. :wink:


GOSTEI 0
Jpaulorio

Jpaulorio

01/04/2004

dá uma olhada em www.asciitable.com , abraço


GOSTEI 0
Marco Salles

Marco Salles

01/04/2004

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:

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....


GOSTEI 0
POSTAR