Освобождение памяти в TreeView

← →
shc (2004-08-17 17:07) [0]

Здравствуйте, мастера.
Вот пример рекурсивной процедуры.

procedure parsenode(aParentNode:TTreeNode; s:string);
var anode:TTreeNode;
begin
ANode:=AddChild(AparentNode,s);
Anode.data:=TMyObject.Create;
.........
parsenode(ANode,s+"1");
end;

Есть два вопроса:
1) освобождается ли память на хранение созданных веткок при очистке дерева (items.clear)
2) освобождается ли память на хранение экземпляров TMyObject и когда

← →
LM2 (2004-08-17 17:11) [1]

ну дык сам проверь, поставь точку останова на деструкторе TMyObject.Destroy;

> 1) освобождается ли память на хранение созданных веткок
> при очистке дерева (items.clear)

Да.

> 2) освобождается ли память на хранение экземпляров TMyObject
> и когда

Нет.

Освобождение памяти в TreeView Найти похожие ветки