Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Validar un TEdit (https://www.clubdelphi.com/foros/showthread.php?t=45534)

Nicoasd 05-07-2007 22:39:49

Validar un TEdit
 
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 05-07-2007 22:48:13

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 05-07-2007 22:48:42

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

Nicoasd 05-07-2007 22:52:54

Gracias
 
alto capo! xD...

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

muchas gracias.

gabrielkc 06-07-2007 05:13:46

Cita:

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 06-07-2007 13:38:24

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;


La franja horaria es GMT +2. Ahora son las 16:44:46.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi