TreeNode

← →
maksum (2008-07-21 21:45) [0]

В TreeView есть TreeNode, в котором есть различные подветки-подпапки. Мне нужно перебрать все-все узлы TreeNode. Как их все перебрать?

← →
Сергей М. © (2008-07-21 21:48) [1]

Рекурсивно

← →
Игорь Шевченко © (2008-07-21 21:49) [2]

рекурсивно. У TTreeNode есть свойства HasChildren и массив детей Item[]

← →
maksum (2008-07-21 21:56) [3]

Спасибо. Я никак не соображу, каким образом цикл организовать.

procedure NilNodes(ANode: TTreeNode); begin while ANode <> nil then begin ANode.Data := nil; if ANode.HasChildren then begin ANode := ? NilNodes(ANode); end; end; end;

← →
Игорь Шевченко © (2008-07-21 22:03) [4]

procedure IterateTree (Node: TTreeNode); var I: Integer; begin if Node.HasChildren then for I:=0 to Node.Count do IterateNode(Node.Item[I]); Foo(Node); end;

← →
Германн © (2008-07-22 00:43) [5]

> Игорь Шевченко © (21.07.08 22:03) [4]

А я почему-то всегда предпочитаю сначала выполнять Foo, а потом Has.

А я через GetNextSibling предпочитаю...
Но суть не в этом.

Можно через св-во AbsoluteIndex, но на больших деревьях шибко тормозит

TreeNode Найти похожие ветки