Сколько детей у корня TTreeView?

← →
Borealis (2003-08-19 00:23) [0]

У каждого TTreeNode есть свойство Count с помощью которого можно выяснить сколько непосредственных детей, то есть без внуков :), содержит этот TTreeNode. А как узнать сколько непосредственных детей содержит корень дерева?

Свойство TreeView1.Items.Count возвращает общее количество элементов TTreeNode в дереве...

← →
Nucl © (2003-08-19 00:53) [1]

может
TreeView1.Items[0].Count

← →
Романов Р.В. © (2003-08-19 06:13) [2]

С помощью рекурсивного алгоритма

← →
MBo © (2003-08-19 06:29) [3]

GetFirstNode+GetNextSibling

← →
Borealis (2003-08-19 21:48) [4]

> MBo © (19.08.03 06:29) [3]
> GetFirstNode+GetNextSibling
Огромное Спасибо. Это действительно работает :)

Примерно так:
function GetRootCount(TreeView: TTreeView): Integer; var Node: TTreeNode; begin Result := 0; Node := TreeView.Items.GetFirstNode; while Node <> nil do begin Inc(Result); Node := Node.getNextSibling; end; end;

ps. Непонятно, почему Borland не предусмотрела такого свойства, ведь похожий кусок кода используется в методе TTreeNodes.WriteData, да и свойство весьма полезное :)

Сколько детей у корня TTreeView? Найти похожие ветки