Vector de componentes

[ecfisa]

Hola odiseeus.

Una forma puede ser:

...
TObjectList *ObjLst = new TObjectList;

void __fastcall TForm1::CrearEdits(int Cant)
{
 for(int i=0;i < 10; i++) {
    TEdit *TE = new TEdit(this);
    TE->Left = 8;
    TE->Top = i*30+20;
    TE->Name = "Edit"+IntToStr(i+1);
    TE->Parent = this;
    ObjLst->Add(TE);
  }
}

void __fastcall TForm1::btnCrearClick(TObject *Sender)
{
  CrearEdits(10);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::btnLiberarClick(TObject *Sender)
{
  ObjLst->Free();
}
...

Saludos.