como puedo borrar 100 edit

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

[bothy]

Otra Pregunta y como seria para limpiar label..?

[[Caral]]

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

[bothy]

Muchas gracias caral .....

[MAXIUM]

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

¿¿¿ Form3.Edit3.Text ???

[ecfisa]

Empezado por MAXIUM

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

¿¿¿ Form3.Edit3.Text ???

Hola MAXIUM.

procedure TForm1.Button1Click(Sender: TObject);
var
  i : Integer;
begin
  with Form3 do
   for i:= 0 to ControlCount -1  do
     if Controls[i].ClassType = TEdit then
       TEdit(Controls[i]).Text:= '';
end;

Por supuesto debes incluir la Unit que declara a Form3.


Saludos.