Borrado y creación dinámica de elementos

[[escafandra]]

El bucle de borrado debe usar TComponent en lugar de TControl y sólo incrementar cuando no se borra un componente ya que la lista de componentes se decrementa al borrar uno:

Código PHP:

for(nItem = 0; nItem < Panel2->ComponentCount;){
  TComponent *Component = Panel2->Components[nItem];
  if (Component->ClassNameIs("TCheckListBox") || Component->ClassNameIs("TStaticText") || Component->ClassNameIs("TLabeledEdit") || Component->ClassNameIs("TRadioButton"))
    delete Component;
  else
    nItem++;
} 


Saludos.

[Angel.Matilla]

Gracias. Esa opción no se me había ocurrido. Lo resolví haciéndolo al revés:

int nComp = Panel2->ComponentCount - 1;
TComponent *Source;
for (nItem = nComp; nItem >= 0; nItem --)
{
     Source = Panel2->Components[nItem];
     if (Source->ClassNameIs("TCheckListBox") || Source->ClassNameIs("TStaticText") || Source->ClassNameIs("TLabeledEdit") || Source->ClassNameIs("TRadioButton"))
          delete Source;
}