Iterare in modo ricorsivo attraverso i nodi in una vista ad albero?

Question

Ho una vista ad albero che è già popolata con file/cartelle da un'altra procedura. Mi piacerebbe iterare uno ad uno attraverso gli elementi nella vista ad albero, andando nell'ordine esatto da cima a fondo. Tuttavia, a differenza di un elenco normale, non posso utilizzare solo una semplice dichiarazione for per questo. Devo andare in ogni nodo, ecc.

Come faccio? Spero che ci sia un modo per farlo senza eseguire una procedura ricorsiva. Mentre eseguo l'iterazione di questi elementi, non mi interessa necessariamente i nodi padre o figlio di quello attualmente focalizzato. Devo solo essere in grado di leggere la proprietà Data di ogni nodo mentre li passo, oltre a evidenziare quello corrente nella vista ad albero mentre lo percorro. Per ogni elemento in questa vista ad albero, eseguirò un po 'di lavoro e voglio visualizzare visivamente all'utente quale è attualmente selezionato durante questo processo.

Answer 1

In effetti è possibile utilizzare un ciclo for.

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

Questo è zucchero sintattico per:

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

in termini di leggibilità mi sento di raccomandare il ciclo for/in.

Nelle versioni Delphi precedenti che non supportano l'iteratore di nodo è preferibile eseguirlo con un ciclo while.

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

Mi aspetto che ci siano altri modi per farlo. Questi sono gli unici che conosco!

---

LU RD rende interessante osservazione che i documentation stati:

Accesso vista albero elementi di indice può essere tempo ad alta intensità, soprattutto quando la vista albero ha molti elementi. Per prestazioni ottimali, prova a progettare l'applicazione in modo che abbia il minor numero possibile di dipendenze sull'indice di visualizzazione della struttura ad albero.

Questo è assolutamente vero. Per l'accesso casuale, il codice deve percorrere l'albero, iniziando dalla radice, finché non si trova il nodo i ^th.

Tuttavia, esiste un ottimizzazione per l'accesso sequenziale. Il wrapper di visualizzazione ad albero Delphi ricorda l'indice dell'ultimo nodo localizzato per indice. La prossima volta che si richiede un nodo con indice non più di uno diverso dal nodo memorizzato nella cache, il nodo richiesto può essere restituito rapidamente. Questo è implementato in TTreeNodes.GetNodeFromIndex.

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;