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;