Validar TEdit para que no quede vacio

[MAXIUM]

Eso, como valido un TEdit para que su propiedad Text no este vacio, es decir, se pueda ingresar texto con o sin espacios, pero que no quede vacio o 100% con espacios. Por último en defecto que quede con algún caracter imprimible.

Gracias!!!

[Black_Ocean]

Ejemplos:

Para evitar que se ingreses espacios:

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if key = Char(VK_SPACE) then
    Key := #0;
end;

Para validar que el campo no esté vacío:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if Edit1.Text = EmptyStr then
    //Hacer algo
end;

Para que no se ingresen números (Sólo permitir letras y caracteres):

Código Delphi [-]
procedure TForm1.Edit1KeyPress(Sender: TObject; var Key: Char);
begin
  if Key in ['0'..'9'] then
    Key := #0;
end;

Para que no se ingresen letras:

[delphi]

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

Espero que sea lo que buscas, algo así entendí que querías.

Saludos.

[MAXIUM]

Donde quieres que te bese...

[keyboy]

Empezado por MAXIUM

se pueda ingresar texto con o sin espacios

Entonces no te sirve impedir que se escriban espacios en blanco. Y para verificar que

Empezado por MAXIUM

su propiedad Text no este vacio

hay que comparar con Trim:

Código Delphi [-]
if Trim(Edit1.Text) = '' then
  ShowMessage('Error');

o de lo contrario aceptará cadenas con sólo espacios.

Bye

[MAXIUM]

Toda la razón, creí que con if Edit1.Text = EmptyStr then bastaba, gracias.