Validar Edit

[Elite237]

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:

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

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]

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

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