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

← →
comovets (2008-08-10 20:47) [0]

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

← →
Германн © (2008-08-10 20:57) [1]

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

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

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

← →
aaaaa (2008-08-10 20:59) [3]

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;

TTreeView - просмотреть все дочерние узлы одного узла Найти похожие ветки