como puedo borrar 100 edit
 

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..

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

casimiro noce porque me da un erro en esta linea

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

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 :D

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!

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

Otra Pregunta y como seria para limpiar label..?

Hola
Se usa esencialmente lo mismo, solo cambia el componente:

Código Delphi [-]
var
  i: Integer;
  comp: TComponent;
begin
   for i := 1 to 100 do begin // 100 label
   comp := FindComponent('Label' + IntToStr(i)); 
   TLabel(comp).Text:= ' ';
  end;

Saludos

Muchas gracias caral .....

¿Y si los Edit están en otro Forma?

¿¿¿ Form3.Edit3.Text ???

Hola MAXIUM.

Por supuesto debes incluir la Unit que declara a Form3.


Saludos.

Hola, gracias, pero que pasa si tengo un Edit1.Text y un AlignEdit1.Text, el segundo descendiente del primero, osea también es un TEdit y quiero modificar solo los AlignEdit dejando intactos los primeros.

Funcionara?!?!

Código Delphi [-]
TEdit(Form4.FindComponent('AlignEdit'+IntToStr(Indice))).Text:= 'Hola'

Hola de nuevo MAXIUM.

Si usas la forma:
No podés hacer la distinción ya que te dara verdadero tanto para la clase base como para sus descendientes.

Es por eso que usé:
Para lo que deseas deberías usar:
Saludos.

Funcionara?!?!

Código Delphi [-]
TEdit(Form4.FindComponent('AlignEdit'+IntToStr(Indice))).Text:= 'Hola'

Sin duda. :)