Выделяю память. Освобождать Пушкин или сам?

← →
12 © (2010-03-23 15:30) [0]

PRec = ^Rec;

Rec = Record
ID : integer;
lvl : byte;
end;

Пишу

New(R); R.ID := AOraQuery.FieldByName("IdTerra").AsInteger; R.lvl := lvl; TreeNode:=TreeAddress.Items.AddChildObject( Node, AOraQuery.FieldByName("NameTerra").AsString, R);
, работает.

но ни разу не вызываю антипод к New(R);
А чувствую что надо, вернее чувствую некую неправильность.

Так? если да, когда вызвать?

← →
12 © (2010-03-23 15:33) [1]

TreeAddress: TTreeView;

← →
Медвежонок Пятачок © (2010-03-23 15:33) [2]

когда перестраиваешь дерево или убиваешь его

← →
12 © (2010-03-23 15:33) [3]

тьфу, блин и еще
R : PRec;

← →
12 © (2010-03-23 15:38) [4]

> Медвежонок Пятачок © (23.03.10 15:33) [2]

т.е. надо помнить все выделенные мной R или перед убиством дерева пробежаться по нему и убить все Data?

А само оно, при умирании, ни как?

← →
Омлет © (2010-03-23 15:38) [5]

Подключи FastMM, он в дебаг-режиме сразу расскажет о неправильности.

← →
Медвежонок Пятачок © (2010-03-23 15:40) [6]

можно и пушкину поручить.
не фик и потеря. 8 байт на узел

← →
Омлет © (2010-03-23 15:49) [7]

> Медвежонок Пятачок © (23.03.10 15:40) [6]
> не фик и потеря. 8 байт на узел

80 Мб на сто мильёнов записей.

← →
12 © (2010-03-23 15:56) [8]

Спасибо.

← →
Игорь Шевченко © (2010-03-23 16:26) [9]

> 80 Мб на сто мильёнов записей.

семечки

> Игорь Шевченко (23.03.2010 16:26:09) [9]

Чему молодежь учишь :-)

> А чувствую что надо, вернее чувствую некую неправильность.
>
>
> Так? если да, когда вызвать?

Можно освобождать в событии OnDeletion.
Правда следует учитывать, что OnDeletion срабатывает еще и при Drag&Drop или при изменении Parent"a

← →
han_malign (2010-03-24 17:49) [12]

а я бы прикинул диапазоны и запихал в pointer(cardinal(lvl) shl BitsPerId or cardinal(ID) and not(cardinal(-1) shl BitsPerId))

это - если лень смотреть в сторону TCustomTreeView.OnCreateNodeClass...

интересно, но разбирать/собирать не проще

Выделяю память. Освобождать Пушкин или сам? Найти похожие ветки