iterating trên nút và Childs và sửa đổi dữ liệu

Question

Tôi đang sử dụng List Tree ảo cho delphi 2009. Tôi đã tạo một cây với dữ liệu như:

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

Tôi muốn để lặp qua tất cả các yếu tố nhưng trong thứ tự cụ thể. Tôi cần phải có được nút cấp cao nhất đầu tiên, và sau đó lặp lại trên tất cả các con của nó và sửa đổi trường FPath. Khi tôi làm xong với các con của nó, tôi muốn có một nút cấp cao nhất khác, v.v.

Trước hết, tôi không biết cách lật đổ các nút cấp cao nhất.

Cảm ơn trước cho bất kỳ mẹo nào về số này

Answer 1

Đây là cách để lặp lại các nút cấp cao nhất. Xin lưu ý (như Smasher còn lại trong bình luận của mình) rằng các nút đang được khởi tạo nếu cần thiết bằng cách sử dụng GetFirst và GetNextSibling điều gì có thể làm chậm quá trình lặp lại một chút. Tuy nhiên, bạn có thể sử dụng các hàm GetFirstNoInit và GetNextNoInit (nếu bạn đã khởi tạo các nút) và bạn có thể có hiệu suất tốt hơn.

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;