[BCB] Jak usunąć wszystkie komponenty należące do tej samej klasy?

Ten kod prezentuje usunięcie wszystkich komponentów należących do klasy Tbutton. Tworzmy wskaźnik do którego pętlą przypisujemy kolejne komponenty formy. Jeśli klasa komponentu jest równa z TButton to usuwamy komponent.

void __fastcall TForm1::Button1Click(TObject *Sender)

{

    TComponent *komponent;


    for (int i = ComponentCount - 1; i >= 0; i--)

    {

        komponent = Components; // przypisuje komopnent z formy

         if (AnsiString(komponent->ClassName()) == "TButton")    delete komponent;

    }

}

void __fastcall TForm1::Button1Click(TObject *Sender)

{

TComponent *komponent;

for (int i = ComponentCount - 1; i >= 0; i--)

{

komponent = Components; // przypisuje komopnent z formy

if (AnsiString(komponent->ClassName()) == "TButton") delete komponent;

}

Autor: Drazek