Повторное удаление объектов из списков - C++ Builder - Ответ 7933466

template <class T>
class TMyObjectList
{
private:
    TList *FList;
 
    int __fastcall GetCount(void)
    {
        return (FList->Count);
    };
 
    T* __fastcall GetItem(const int Index)
    {
        assert(Index < FList->Count);
        return (static_cast<T*>(FList->Items[Index]));
    };
 
public:
    __fastcall TMyObjectList(void)
    {
        FList = new TList;
    };
 
    __fastcall ~TMyObjectList(void)
    {
        Clear(false);
        delete FList;
    };
 
    void __fastcall Add(T *it)
    {
        FList->Add(it);
    };
 
    void __fastcall Delete(const int Index, bool deleteObject)
    {
        assert(Index < FList->Count);
        if (deleteObject)
            delete static_cast<T*>(FList->Items[Index]);
        FList->Delete(Index);
    };
 
    void __fastcall Clear(bool deleteObjects)
    {
        while (FList->Count)
        {
            Delete(FList->Count - 1, deleteObjects);
        }
    };
 
    int __fastcall IndexOf(T *it)
    {
        return FList->IndexOf(it);
    };
 
    __property int Count = {read = GetCount};
    __property T * Items[const int Index] = {read = GetItem};
};

__fastcall TForm1::TForm1(TComponent* Owner) : TForm(Owner)
{
    ObjList = new TMyObjectList<MyClass>(); // Obj объявлен в h-файле в секции private
}
 
void __fastcall TForm1::FormCreate(TObject *Sender)
{
    int i;
    for (i = 0; i < 5; i++)
    {
        MyClass *NewMyObj = new MyClass(i*i);
        ObjList->Add(NewMyObj);
 
        CheckListBox1->AddItem(L"Объект " + String(i), (TObject*)NewMyObj);
    }
 
    // Отберем часть объектов из первого списка
    // по какому-нибудь критерию и внесем во второй список
    for (i = 0; i < CheckListBox1->Count; i++)
    {
        MyClass *NewMyObj = (MyClass*)CheckListBox1->Items->Objects[i];
 
        if (NewMyObj->a % 2)
        {
            CheckListBox2->AddItem(L"Объект " + String(i), (TObject*)NewMyObj);
        }
    }
 
    // Добавим во второй список уникальные объекты,
    // которых нет в первом списке
    for (i = 0; i < 3; i++)
    {
        MyClass *NewMyObj = new MyClass(i+100);
        ObjList->Add(NewMyObj);
 
        CheckListBox2->AddItem(L"Объект " + String(i) + "1", (TObject*)NewMyObj);
    }
}
 
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
    ObjList->Clear(true); // Удаляем все объекты
    delete ObjList; // и сам список. Никаких вылетов
}