Re: [delphi-br] Limpar todos os e dits de uma só vez!

[Marcelo Luiz Onhate]

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