(VST) VirtualStringTree alle Chilt notes durchlaufen

[generic]

der for konstrukt ist nicht notwendig

Zitat von toms:

ungetestet:

Delphi-Quellcode:

    
    if VST.HasChildren[Node] then 
    begin 
      NextNode := VST.GetFirstChild(Node); 
      for i := 1 to Pred(Node.ChildCount) do 
      begin 
        NextNode := VST.GetNext(NextNode); 
      end; 
    end;

Delphi-Quellcode:

    
    if VST.HasChildren[Node] then 
    begin 
      NextNode := VST.GetFirstChild(Node); 
      while assigned(NextNode) do
      begin 

        NextNode := VST.GetNextSibling(NextNode); 
      end; 
    end;

Spart zumindest die I Variable.