como puedo borrar 100 edit

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

[MAXIUM]

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'

[ecfisa]

Hola de nuevo MAXIUM.

Si usas la forma:

   if Controls[i] is TEdit then
     ...

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

  if Controls[i].ClassType = TEdit then
   ...

Para lo que deseas deberías usar:

  if Controls[i].ClassType = TAlignEdit then 
   ...

Saludos.