Validar un TEdit

[Jose Roman]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['A'..'Z','a'..'z']) then key:=#0;
end;

[Nicoasd]

alto capo! xD...

aca estamos renegando un rato con DBExpress, cualquier cosa te jodemos de nuevo en un rato.

muchas gracias.

[gabrielkc]

Empezado por Jose Roman

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['A'..'Z','a'..'z']) then key:=#0;
end;

pequeña correción;

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  If not (Key in ['A'..'Z','a'..'z',#8,#13]) then key:=#0; //para que permitas el BackSpace y el Enter
end;

[darcan01]

procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
If not (Key in ['A'..'Z','a'..'z',#8,#13,#32 ]) then key:=#0; //para que permitas el BackSpace y el Enter y el espaciador
end;