Delphi中動態加載TreeView信息

在Delphi中，可以使用TTreeView組件來顯示樹形結構的信息。動態加載TreeView的信息意味著在運行時根據需要動態添加樹節點。

以下是一個示例代碼，演示如何動態加載TreeView的信息：

1. 在Form的私有部分，聲明一個TTreeNode類型的變量：

private
  RootNode: TTreeNode;

2. 在Form的OnCreate事件中，創建TreeView的根節點，并將其賦值給RootNode變量：

procedure TForm1.FormCreate(Sender: TObject);
begin
  RootNode := TreeView1.Items.Add(nil, '根節點');
end;

3. 創建一個過程，在其中動態添加TreeView的子節點。以下示例過程使用遞歸方式添加子節點：

procedure TForm1.AddChildNodes(ParentNode: TTreeNode; const ParentText: string; ChildCount: Integer);
var
  I: Integer;
  ChildNode: TTreeNode;
  ChildText: string;
begin
  for I := 1 to ChildCount do
  begin
    ChildText := ParentText + '.' + IntToStr(I);
    ChildNode := TreeView1.Items.AddChild(ParentNode, ChildText);
    AddChildNodes(ChildNode, ChildText, Random(5));
  end;
end;

4. 在Form的某個事件中，例如按鈕的OnClick事件中，調用以上過程來動態加載TreeView的信息：

procedure TForm1.Button1Click(Sender: TObject);
begin
  AddChildNodes(RootNode, '根節點', Random(5));
end;

以上示例中，在點擊按鈕時，會動態加載TreeView的信息。每個節點的文本由ParentText和節點索引組成。Random(5)的作用是生成一個隨機數（0到4之間的整數），用來確定每個節點的子節點數量。

請根據自己的需求修改代碼，以適應您的具體情況。