| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Как пробежаться по всем веткам узла
wsih © (2006-05-30 15:29:00)Здравствуйте! В процедуру передается узел дерева
Как мне пробежаться по всем его веткам. перепробовал много чего, знаю что где то рядом лежит простой ответ но немогу его поднять (...
parovoZZ (2006-05-30 19:06:00) [1]
// 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;
Ega23 (2006-05-30 15:31:00) [2]рекурсией.
См. TTreeNode.HasChildren, TTreeNode.GetNextChild, TTreeNode.GetFirstChild и т.п.
| |
