treeview count hauptknoten

[toms]

Hallo,

Ermittle den ersten Node und dann in einer Schleife mit getNextSibling die Nodes auf der gleichen Ebene.

Delphi-Quellcode:

var
  iNodes: Cardinal;
  Node: TTreeNode;
begin
   iNodes := 0;
   if TreeView1.Items.Count > 0 then
   begin
       Node := TreeView1.Items[0];
       while Assigned(Node) do
       begin
         Inc(iNodes);
         Node := Node.getNextSibling;
       end;
   end;
end;