Limpando objetos dinamicamente (Delphi)

 

Muitas vezes nos deparamos com situações onde devemos remover o conteúdo de determinados objetos, como por exemplo Edits ou mesmo Labels e dependendo da complexidade da tela setar manualmente cada campo pode ser trabalhoso.Sendo assim mostraremos hoje como montar um esquema automático e genérico para esse caso:

 

procedure TForm1.Button1Click(Sender: TObject); 

procedure LimparEdits(AControl: TComponent);
var
   vLoop: Integer;
begin

    { ComponentCount retorna a qtde de componentes que o parent é o AControl, ou seja, somente os componentes que
    estão ligados a ele }

    for vLoop := 0 to AControl.ComponentCount-1 do 
    begin                                                

           { Se for um componente do tipo TEdit, }     
            { então iremos limpar o conteúdo, caso }
            { contrário, iremos rechamar a procedure }
            { pois o AControl pode ser um painel e temos }
            { que limpar inclusive os edits do painel }

            if AControl.Components[vLoop].ClassType = TEdit then
               TEdit(AControl.Components[vLoop]).Clear        
                else
               LimparEdits(AControl.Components[vLoop]);  

    end;

end;  

begin  

    { O processo irá iniciar limpando os edits que estão diretamente  docados no form }

    LimparEdits(Self);

end;