Foros Club Delphi - Validar Edit

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)

- - Validar Edit (https://www.clubdelphi.com/foros/showthread.php?t=46417)

Elite237

31-07-2007 17:15:21

Validar Edit

Hola, buen dia a todos, alguien me podria explicar como validar un edit para que acepte por ejemplo 10 letras? y tambien que me valide que no puedo dejar un edit vacio?

utilizo Delphi7, mi base de datos es SQL Server.Gracias por su tiempo.Valide mis edit para que no me aceptara letras y este es mi codigo que introduci:

Código:

if (Key >=char (64)) or (Key<char(47))

  and (Key>=char (14)) then

  begin

  mensaje:=Application.MessageBox('Introduzca un valor numerico.Gracias','Error de entrada');

  key:=char(0);

  end;

Bicho

31-07-2007 17:22:58

Hola Elite237,

si miras al final de ésta página puedes encontrar varios hilos relacionados.
Son dos preguntas distintas aunque un poco relacionadas pero si usas el buscador seguro que encuentra la respuesta que más se adecue a tús necesidades, ya que este es un tema que se ha tratado varias veces.

Saludos

MaMu	31-07-2007 17:28:21

Yo lo primero que haria es limitar al TEdit a solo numero, asi:

Código Delphi [-]procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
 if ( StrScan('0123456789',Key) <> nil ) or
      ( Key = Char(VK_BACK) ) then
   begin
     {Aqui tu tratamiento normal del evento}
   end
   else
     Key := #0;
end;

Luego definiria el ancho minimo que deseo que ingresen, asi:

Código Delphi [-]Edit1.MaxLength:=10;

Y luego, para verificar que no este vacio, ni menor a 10, asi:

Código Delphi [-] if Length(Edit1.Text)<10
  then begin
     ShowMessage('Introduzca 10 numeros');
     Edit1.SetFocus;
     Exit;
 end;

// si hay 10 continuamos aqui
.....

Saludos

BlueSteel

31-07-2007 17:34:39

Hola Elite237

Te recomiendo que para este caso utilices un MaskEdit... ahí puedes definir que caracteres queires que tenga... y de que largo... y es mas fácil trabajarlo:p

La franja horaria es GMT +2. Ahora son las 07:47:02.