Уничтожает ли Tlist.free объекты, на которые ссылается?

[Anfall]

Всем доброго времени суток.

Запутался.
У меня есть класс, унаследованный от Tlist. Насколько я понимаю, он хранит ссылки на объекты.

Как я добавляю объекты:
item := TSomeClass.Create;
List.Add(Item);

А в деструкторе класса, унаследованного от Tlist, уничтожаю каждый объект.

С другой стороны, я попробовал не использовать свой деструктор и никаких утечек памяти не было. Я сделал вывод, что Tlist при своем уничтожении сам уничтожает объекты.

Потом я решил в свой Tlist копировать кое-какие элементы (ну а точнее ссылки на объекты) из другого Tlist. Так вот, после уничтожения другого Tlist, не основного, объекты, хранимые в главном Tlist остаются жить.

Как это можно объяснить? Какова же все-таки логика работы Tlist? Как правильно его уничтожать?

Заранее благодарен.

[veniside]

TList хранит указатели, и не освобождает их. Всё остальное от лукавого.

> никаких утечек памяти не было

как проверяли?

> в деструкторе класса, унаследованного от Tlist, уничтожаю каждый объект

гораздо лучше перекрыть TList.Notify();

[Пепел Феникса]

а почему не TObjectList взяли за основу?

[Anfall]

Утечки проверял, добавив еще до создания форм:

ReportMemoryLeaksOnShutdown := true;

а почему не TObjectList взяли за основу?

Ну его работа для меня пока непонятна еще больше, да и хочется с Tlist разобраться.

Зы: Д2010

[Человек_Борща]

Anfall,
TObjectList наследник TList. Особой разницы я не нашёл. Ну разве что TObjectList сам освобождает все добавоенные в него обьекты в своём деструкторе.

ДОБАВИЛ

Сам класс находится в Contnrs

Единственно что подскажу, это решение проблемы с тем что код:

{
TmyClass мой класс наследуется от TObjectList
tMyClassItem - Класс моего обьекта котрый хранится в myClass
}
TmyClass.GetMeItem(aIndex:Integer):TMyClassItem;
begin
Result:=Items[aIndex];
end;

вернёт тебе обьект класса TObject. А это не есть хорошо.
По этому делай так:

{
TmyClass мой класс наследуется от TObjectList
tMyClassItem - Класс моего обьекта котрый хранится в myClass
}
TmyClass.GetMeItem(aIndex:Integer):TMyClassItem;
begin
Result:=(Items[aIndex] as TMyClassItem);
end;

[GunSmoker]

Утечки проверял, добавив еще до создания форм:
Код:
ReportMemoryLeaksOnShutdown := true;

А добавляемые в список объекты - случайно не компоненты с владельцем-то, а?

[Anfall]

Человек_Борща, спасибо, посмотрю.

GunSmoker, Спасибо. Не совсем понял. Объекты - это объекты моего класса, который ни от чего не унаследован.