Ver Mensaje Individual
  #3  
Antiguo 14-04-2008
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

A ver si te da alguna idea:

Código Delphi [-]
(* Vamos a usar un supuesto procedimiento "Button1Click" situado
   en el formulario donde también se encuentra un "TPanel", y,
   dentro de este, los "Edits" en cuestión.
*)

procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  // Recorremos los controles del contenedor, en este caso el Panel
  for i := 0 to Panel1.ControlCount - 1 do
  begin
    // Comprobamos que el control sobre el que estamos es un TEdit
    if (Panel1.Controls[i] is TEdit) then
    begin
      // Y comprobamos por último si su propiedad "Text" no está vacía
      if (Trim(TEdit(Panel1.Controls[i]).Text) <> '') then
      begin
        // Hay texto en este Edit
      end else begin
        // No hay texto en este Edit
      end;
    end;
  end;
end;
__________________
David Esperalta
www.decsoftutils.com
Responder Con Cita