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

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

[MAXIUM]

Funcionara?!?!

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

[ecfisa]

Sin duda.