Wiederhole rekursiv über Knoten in einer Baumansicht?

Question

Ich habe eine Baumansicht, die bereits mit Dateien/Ordnern aus einer anderen Prozedur gefüllt ist. Ich möchte nacheinander durch die Elemente in der Baumansicht iterieren, wobei die Reihenfolge von oben nach unten genau ist. Im Gegensatz zu einer normalen Liste kann ich dafür aber nicht einfach eine einfache for-Anweisung verwenden. Ich muss in jeden Knoten usw. gehen.

Wie mache ich das? Ich hoffe, es gibt einen Weg, wie ich es machen kann, ohne eine rekursive Prozedur auszuführen. Wenn ich diese Elemente durchlaufe, interessiert mich nicht unbedingt der Eltern- oder Kindknoten des aktuell fokussierten Elements. Ich muss nur in der Lage sein, die Data Eigenschaft jedes Knotens zu lesen, während ich sie passiere, sowie die aktuelle in der Baumansicht markieren, während ich es durchlaufe. Für jedes Element in dieser Baumansicht führe ich einige Arbeiten aus und möchte dem Benutzer visuell anzeigen, welches gerade während dieses Vorgangs ausgewählt ist.

Answer 1

In der Tat können Sie eine for Schleife verwenden.

var 
    Node: TTreeNode; 
.... 
for Node in TreeView.Items do 
    DoSomething(Node); 

Dieser syntaktischer Zucker für:

for i := 0 to TreeView.Items.Count-1 do 
    DoSomething(TreeView.Items[i]); 

In Bezug auf die Lesbarkeit würde ich die for/in Schleife empfehlen.

In älteren Delphi-Versionen, die den Knoten-Iterator nicht unterstützen, empfiehlt es sich, dies mit einer while-Schleife zu tun.

Node := TreeView.Items.GetFirstNode; 
while Assigned(Node) do 
begin 
    DoSomething(Node); 
    Node := Node.GetNext; 
end; 

Ich erwarte, dass es andere Möglichkeiten gibt, es zu tun. Das sind die einzigen, die ich kenne!

---

LU RD macht die interessante Beobachtung, dass die documentation Zustände:

Zugriff auf Baumansicht Artikel von Index zeitintensiv sein kann, vor allem, wenn der Baumansicht viele Elemente enthält. Versuchen Sie für eine optimale Leistung, Ihre Anwendung so zu entwerfen, dass sie so wenig Abhängigkeiten vom Objektindex der Strukturansicht aufweist wie möglich.

Das ist ziemlich wahr. Für einen wahlfreien Zugriff muss der Code den Baum durchlaufen, beginnend an der Wurzel, bis der Knoten sich befindet.

Es gibt jedoch eine Optimierung für den sequentiellen Zugriff. Der Delphi-Baumansichts-Wrapper merkt sich den Index des letzten Knotens, der sich nach dem Index befindet. Wenn Sie das nächste Mal nach einem Knoten mit einem Index suchen, der nicht mehr als ein anderer als der zwischengespeicherte Knoten ist, kann der erforderliche Knoten schnell zurückgegeben werden. Dies ist in TTreeNodes.GetNodeFromIndex implementiert.

Answer 2

var 
i:Integer; 
begin 
    for I := 0 to tv.Items.Count - 1 do 
     begin 
     Listbox1.Items.Add(tv.Items[i].Text +' SubItems: ' + IntToStr(tv.Items[i].Count)) 
     end; 

end;