Zählen, wieviel Nodes in Treeview sind

[Orbmu2k]

Müsste so gehen...!?

Delphi-Quellcode:

function GetRootNodeCount(Treeview: TTreeview): Integer;
var
  i:Integer;
begin
  Result := 0;
  for  i:= 0 to Pred(Treeview.Items.Count) do
    if not Assigned(Treeview.Items[i].Parent) then
      Inc(Result);
end;