Virtual Treeview - Nodes durch-iterieren - Wie?

[torud]

Ich habs jetzt so gemacht, aber ich bin mir nicht sicher, ob das so in Ordnung ist.

Delphi-Quellcode:

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