Ağaç görünümünde düğümleri yinelemeli olarak yineleyin mi?

Question

Başka bir yordamdan dosya/klasörlerle doldurulmuş bir ağaç görünümüm var. Ağaç görünümündeki öğelerden tek tek, yukarıdan aşağıya doğru sırayla ilerlemek istiyorum. Ancak, normal bir listeden farklı olarak, bunun için basit bir for ifadesini kullanamıyorum. Ben, vb her düğüm gitmek zorunda

Bunu nasıl yapacağım? Umarım yinelemeli bir prosedür yapmadan yapabileceğim bir yol var. Bu öğeler üzerinden geçerken, şu anda odaklanmış olanın ebeveyn veya çocuk düğümlerini önemsemem. Sadece her bir düğümün Data özelliğini okuyabildiğim kadarını okumanın yanı sıra, ağaç görünümündeki geçerli olanı vurguladım. Bu ağaç görünümündeki her bir öğe için, biraz iş yapacağım ve bu süreçte seçili olan kullanıcıya görsel olarak görünmek istiyorum.

Answer 1

Aslında sen bir for döngü kullanabilirsiniz.

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

okunabilirliği açısından ben for/in döngü öneriyoruz:

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

Bu için sözdizimsel şekerdir. Eğer bir while döngü ile yapmayı tercih edebilir düğüm yineleyici desteklemeyen eski Delphi sürümlerinde

.

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

Bunu yapmanın başka yolları olduğunu umuyorum. Bunlar bildiğim tek şey! endeksine göre

Erişme ağaç görünümü öğeleri ağaç görünümü çok sayıda öğe içeren özellikle, zaman yoğun olabilir:

---

LU RD documentation devletler ilginç bir gözlem yapar. En iyi performans için, uygulamanızı, ağaç görünümünün öğe dizinine olabildiğince az bağımlı olacak şekilde tasarlamaya çalışın.

Bu oldukça doğrudur. Rastgele erişim için, kod, kökte başlayarak, ^th düğümün bulunduğu yere kadar yürümelidir.

Ancak sıralı erişim için bir optimizasyon vardır. Delphi ağaç görünümü sarmalayıcısı, endeksle bulunan son düğümün dizinini hatırlar. Önbelleğe alınmış düğümden bir taneden farklı olmayan bir düğüm için bir sonraki sorduğunuzda, gerekli düğüm hızlı bir şekilde döndürülür. Bu, TTreeNodes.GetNodeFromIndex'da uygulanır.

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;