Zählen, wieviel Nodes in Treeview sind

[TheMiller]

Hi,

möchte herausfinden, (also, den Computer herausfinden lassen), wieviele Nodes in der Treeview sind. Zähle ich mit Items.Count-1 zählt er ja auch die untergeordneten Nodes mit. Will aber nur die "haupt"-Nodes.

Danke im Voraus

[SirThornberry]

selbst eine schleife schreiben die nur die childs des root-nodes durchzählt.
bzw.: Bevor irgend ein Item erstellt wurde mit
TreeView1.Items.GetFirstNode das root-item ermitteln und in ner private-variablen sichern.
Und dan wenn du mal die anderen Items erstellt hast kannst du über
gesichtertesFirstNode.Count die anzahl ermitteln

[TheMiller]

Genau das will ich ja. Nur ich weiß nicht wie...

[EDIT: Das verstehe ich nicht...]

[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;

[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;