Форум: "Основная";
Текущий архив: 2015.03.01;
Скачать: [xml.tar.bz2];

Вниз

освобождение объектов в treeview..   Найти похожие ветки 

← →
_i   (2012-02-21 22:23) [0]

к нодам тривью привязаны объекты, можно ли ускорить цикл освобождения объектов дерева не меняя принципиально сам подход к хранению этих объектов? (beginupdate\endupdate вызываю "снаружи" до входа в этот метод)


procedure ClearNode(ANode: TTreeNode);
var
 i: Integer;
begin
 if ANode = nil then
   Exit;
 for i := 0 to ANode.Count - 1 do
 begin
   if ANode.Item[i].Data <> nil then
   begin
     Dispose(ANode.Item[i].Data);
   end;
   if ANode.Item[i].Count > 0 then
     ClearNode(ANode.Item[i]);
 end;
 ANode.DeleteChildren;
end;

---

← →
sniknik ©   (2012-02-21 22:28) [1]

http://delphimaster.net/view/1-1328811083/

---

← →
Сергей М. ©   (2012-02-21 22:37) [2]

А и цикл никакой не нужен - все необходимые циклы уже реализованы в потрохах компонента.

Твое дело - в обработчике события OnDeletion проделать нужные тебе манипуляции с данными, ассоциированными с текущим удалаемым узлом.

---

← →
istok20 ©   (2012-02-21 23:04) [3]

> http://delphimaster.net/view/1-1328811083/

в курсе, но то уже кардинальная схема работы с моими данными..


> Твое дело - в обработчике события OnDeletion проделать нужные
> тебе манипуляции с данными, ассоциированными с текущим удалаемым
> узлом.


спасибо, то что надо!)

---

Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2015.03.01;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.002 c