como puedo borrar 100 edit

[bothy]

como puedo borrar 100 edit

e puesto este codigo en un Button para limpiar

Código Delphi [-]
var i :integer;
begin
for i := 0 to ComponentCount -1 do
if Components[i] is TEdit then
begin
TEdit(Components[i]).Clear ;
     end;
end;

no me marca ningun error pero tampoco me limpia los edit..

[Casimiro Noteví]

Prueba con FindComponent, algo así (lo he hecho de memoria, revísalo):
Suponiendo que los TEdit se llaman edit1, edit2, edit3, etc.

var
  i:integer;
  cEdit : String;
  UnEdit : TEdit;
begin
  for i:=1 to 100 do
  begin
    cEdit :='Edit'+IntToStr(i);
    UnEdit := Findcomponent(cEdit);
    if Assigned(UnEdit) then
      TEdit(UnEdit).Text := '';
  end;
end;

[bothy]

casimiro noce porque me da un erro en esta linea

Código Delphi [-]
  UnEdit := Findcomponent(cEdit);

[bothy]

El error se encontraba en la declaracion de la variable UnEdit : Tcomponent;

Código Delphi [-]
 var i:integer;
  cEdit : String;
  UnEdit :   Tcomponent;

begin
 for i:=1 to 6 do
  begin
    cEdit :='Edit'+IntToStr(i);
    UnEdit :=  Findcomponent(cEdit);

    if Assigned(UnEdit) then
      TEdit(UnEdit).Text  := '';
  end;
end;

gracias casimiro me acabas de ayudar con 100 edit1.clear

[BrunoBsso]

Código Delphi [-]
for I:=0 to ControlCount-1 do begin //o hasta el número que quieras
  if (Controls[i] is TEdit) then
    TEdit(Controls[i]).Text:='';
end;

Espero que te sirva.
Saludos!

[bothy]

gracias BrunoBsso es un poco menos de codigo..
tambien me funciono..