पुनरावृत्ति और संशोधित डेटा

Question

मैं डेल्फी 2009 के लिए वर्चुअल ट्री सूची का उपयोग कर रहा मैं जैसे डेटा के साथ एक पेड़ बना लिया है:

type 
    PTreeData = ^TTreeData; 
    TTreeData = record 
    FCaption: String; 
    FPath: String; 
    end; 

मैं सभी तत्वों से अधिक पुनरावृति करना चाहते हैं लेकिन में विशिष्ट आदेश मुझे पहले शीर्ष स्तर के नोड को हासिल करने की आवश्यकता है, और फिर अपने सभी बच्चों पर फिर से शुरू करें और FPath फ़ील्ड को संशोधित करें। जब मैं अपने बच्चों के साथ करूँगा तो मैं एक और शीर्ष स्तर नोड प्राप्त करना चाहता हूं, और इसी तरह।

सबसे पहले मैं शीर्ष स्तर नोड पर itterate करने के लिए कैसे पता नहीं है।

इस

Answer 1

पर कोई सुझाव के लिए अग्रिम धन्यवाद यहाँ शीर्ष स्तर नोड्स पुनरावृति करने का तरीका बताया। कृपया ध्यान दें (के रूप में कड़ी चोट उसकी टिप्पणी में छोड़ दिया) कि नोड्स अगर GetFirst और GetNextSibling का उपयोग कर क्या नीचे यात्रा एक छोटा सा धीमी गति से हो सकता है की जरूरत प्रारंभ किया जा रहा है। लेकिन अगर आप GetFirstNoInit और GetNextNoInit कार्यों (यदि आप पहले से ही नोड्स प्रारंभ किया है) का उपयोग कर सकते हैं और आप बेहतर प्रदर्शन प्राप्त हो सकता है।

procedure TForm1.Button1Click(Sender: TObject); 
var 
    Data: PTreeData; 
    Node: PVirtualNode; 
begin 
    Node := VirtualStringTree1.GetFirst; 
    while Assigned(Node) do 
    begin 
    Data := VirtualStringTree1.GetNodeData(Node); 
    // here you can access your data 
    Node := VirtualStringTree1.GetNextSibling(Node); 
    end; 
end;