Текущий архив: 2008.08.24;
Скачать: CL | DM;
Вниз
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.
← →
Ega23 © (2008-07-22 09:48) [6]А я через GetNextSibling предпочитаю...
Но суть не в этом.
← →
MsGuns © (2008-07-22 11:52) [7]Можно через св-во AbsoluteIndex, но на больших деревьях шибко тормозит
Страницы: 1 вся ветка
Текущий архив: 2008.08.24;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.016 c
