Virtual Treeview - Nodes durch-iterieren - Wie?

[Gruber_Hans_12345]

brauchst nicht den lastnode prüfen (den du bei deiner version auch übersehen würdest)

GetNext liefert eh nil zurück, wenn es keinen mehr gibt

Delphi-Quellcode:

function GetItemsOfLevel(int_level_count : integer) : integer;
var
  akt_Node: PVirtualNode;
begin
  Result := 0;
  with form2.vst do
    begin
      akt_Node  := GetFirst;
      while assigned(akt_Node) do
        begin
          if GetNodeLevel(akt_Node) = int_level_count then inc(Result);
          akt_Node := GetNext(akt_Node);
        end;
    end;
end;