Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.06.18;
Скачать: CL | DM;

Вниз

Как пробежаться по всем веткам узла   Найти похожие ветки 

 
wsih ©   (2006-05-30 15:29) [0]

Здравствуйте! В процедуру передается узел дерева
Как мне пробежаться по всем его веткам. перепробовал много чего, знаю что где то рядом лежит простой ответ но немогу его поднять (...


 
Ega23 ©   (2006-05-30 15:31) [1]

рекурсией.
См. TTreeNode.HasChildren, TTreeNode.GetNextChild, TTreeNode.GetFirstChild и т.п.


 
parovoZZ ©   (2006-05-30 19:06) [2]

// ParentNode - узел дочерние узлы которого надо перебрать
procedure SelectChildrenNodes(ParentNode: TTreeNode);
var
  Node: TTreeNode;
begin
  if not Assigned(ParentNode) then
     exit;

  Node := ParentNode.GetFirstChild;
  while Assigned(Node) do
  begin
     // Какие-то действия с каждым дочерним узлом

     Node := ParentNode.GetNextChild(Node);
  end;
end;



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

Текущий архив: 2006.06.18;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.043 c
15-1148538041
begin...end
2006-05-25 10:20
2006.06.18
Сотовый...


1-1146814280
pargo
2006-05-05 11:31
2006.06.18
Корректная работа с памятью.


15-1148363456
Хельг
2006-05-23 09:50
2006.06.18
Basic в OpenOffice


2-1148845528
parovoZZ
2006-05-28 23:45
2006.06.18
Красивое меню (наверное)


2-1149154940
De
2006-06-01 13:42
2006.06.18
Почему не компелиться?