Текущий архив: 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.05 c
