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

Sé bienvenido al ClubDelphi, en primer lugar. Creo que lo que puedes andar necesitando es algo parecido a lo siguiente:

Código Delphi [-]
// Evento "OnClick" de un determinado botón
procedure TForm1.Button1Click(Sender: TObject);
var
  i: integer;
begin
  // Recorremos todos los controles de "Form1"
  for i := 0 to Self.ComponentCount-1 do
  begin
    // Si damos con un componente TEdit
    if Self.Components[i] is TEdit then
      // Eliminamos el texto que contenga
      TEdit(Self.Components[i]).Clear;
  end;
end;

Podemos ir un poquitín más allá y preparar un procedimiento algo más genérico que se encarge de la tarea:

Código Delphi [-]
// Como su propio nombre indica
procedure ClearFormEdits(form: TCustomForm);
var
  i: integer;
begin
  if not Assigned(form) then
    raise Exception.Create('Es preciso un TForm válido');
  // Recorremos todos los controles de "Form1"
  for i := 0 to form.ComponentCount-1 do
  begin
    // Si damos con un componente TEdit
    if form.Components[i] is TEdit then
      // Eliminamos el texto que contenga
      TEdit(form.Components[i]).Clear;
  end;
end;

// Evento "OnClick" de un determinado botón
// a modo de ejemplo de la función anterior
procedure TForm1.Button1Click(Sender: TObject);
begin
  // Elminamos el texto de los Edits de Form1
  ClearFormEdits(Self);
end;
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 04-11-2006 a las 01:29:22.
Responder Con Cita