Dicas Delphi - Limpando Componentes Automaticamente

Salve, salve amigos,

Uma função que faz a limpeza automática dos componentes da tela, como Edit's, Memo's, etc.

Procedure para limpar somente os Edits:

Por wandinhodelphiweb - http://www.activedelphi.com.br

procedure LimpaEdit; 
var 
  i : Integer; 
begin 
  for i := 0 to ComponentCount -1 do 
    if Components[i] is TEdit then 
      TEdit(Components[i]).Text := ''; 
end;

E agora uma mais genérica, que utiliza a classe TCustomEdit, limpando automaticamente os Memo's e todos os outros componentes que herdam desta classe:

procedure LimpaEdit (Form: TForm); 
var 
  i : Integer; 
begin 
  for i := 0 to Form.ComponentCount - 1 do 
    if Form.Components[i] is TCustomEdit then 
      (Form.Components[i] as TCustomEdit).Clear; 
end;

Take care