| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

TTreeView - просмотреть все дочерние узлы одного узла [D7]

comovets ©   (2008-08-10 20:47:00) 

Беру из TTreeView произвольный узел и хочу перебрать в цикле все его дочерние узлы (абсолютно все, даже те которые являются многоуровнево-вложенными). Как это сделать? Я не могу придумать этот простецкий цикл...

---

aaaaa   (2008-08-10 20:59:00) [1]

procedure GetChildTree(aNode: TTreeNode);
 procedure GetN(aNode: TTreeNode);
 begin
   //тут чето с ним делашь с aNode;
   if aNode.getNextSibling <> nil
     then GetN(aNode.getNextSibling);
   if aNode.HasChildren then
     GetN(aNode.getFirstChild);
 end;
begin
 //тут чето с ним делашь с aNode;
 if aNode.HasChildren then
   GetN(aNode.getFirstChild);
end;

---

b z   (2008-08-10 20:58:00) [2]

А зачем сразу все?

---

Германн   (2008-08-10 20:57:00) [3]

Проход по Items с рекурсией если HasChildren

---

Наверх