Zählen, wieviel Nodes in Treeview sind

[SirThornberry]

ok, falls es nochjemand nicht verstanden hat, hier der entscheidente teil der bei der pn-unterhaltung den ausschlag zum verständnis gab

Zitat:

ok, i merk grad das es müll war was ich geschrieben hab
so gehts aber wirklich (grad getestet und ich poste es auch gleich)
Items einfach vorher anlegen und damit kannst du dann später die items zählen

Delphi-Quellcode:

var LRoot: TTreeNode;
    LCount: Integer;
begin
  LCount := 0;
  LRoot := TreeView1.Items.GetFirstNode;
  while (LRoot <> nil) do
  begin
    LRoot := LRoot.getNextSibling;
    inc(LCount);
  end;
  showmessage(inttostr(LCount));

das ganze als fertige funktion würde dann so aussehen

Delphi-Quellcode:

function CountFirstLevelItems(ATreeView: TTreeView): Integer;
var LRoot: TTreeNode;
begin
  result := 0;
  LRoot := ATreeView.Items.GetFirstNode;
  while (LRoot <> nil) do
  begin
    LRoot := LRoot.getNextSibling;
    inc(result);
  end;
end;