Validar un TEdit

[Nicoasd]

Buenas tardes, alguien me puede explicar como puedo validar un edit, por ejemplo, si tengo un TEdit para un campo de nombre y solo quiero que se puedan ingresar letras, como lo puedo hacer?.. desde ya muchas gracias...

[marcoszorrilla]

Prueba esto:

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if not (key in['a'..'z','A'..'Z','Ñ','ñ']) then
 key:=#0;
end;

Un Saludo.

[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;