將 TVirtualStringTree 內的資料取出

bestlong

將 VirtualStringTree 資料逐項取出並在 Memo1 中列出

1. type
   
2.   PNodeData2 = ^TNodeData2;
   
3.   TNodeData2 = record
   
4.     Part_num,
   
5.     Part_nam: WideString;
   
6.   end;
   
7. 
   
8. procedure TForm1.Button1Click(Sender: TObject);
   
9. var
   
10.   myNode: PVirtualNode;
    
11.   myNodeData: PNodeData2;
    
12. begin
    
13.   Memo1.Clear;
    
14.   myNode := VirtualStringTree1.GetFirst;
    
15.   while Assigned(myNode) do
    
16.   begin
    
17.     myNodeData := VirtualStringTree1.GetNodeData(myNode);
    
18.     Memo1.Lines.Add(myNodeData^.Part_num + ' ' + myNodeData^.Part_nam);
    
19.     myNode := VirtualStringTree1.GetNext(myNode);
    
20.   end;
    
21. end;

複製代碼