Fórum Componentes Edit´s ou Maskedit´s Clear #215175

Procedure LimpaEdit;
Var
i : Integer;

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