如何获取TreeView某一目录下的所有接点的text(30分钟内有效）

Question

设一个全局变量
递归访问树节点，向全局变量上累加text

Answer 1

SourceCode,Thank you.  

Answer 2

procedure GetText(Strs:TStrings;ANode:TTreeNode);
begin
  if ANode<>nil then
  begin
    Strs.Add(ANode.Text);
    if ANode.HasChildren then
      GetText(Strs,ANode.GetFirstChild)
    else
      GetText(Strs,ANode.GetNext);
  end;
end;procedure TForm1.Button1Click(Sender: TObject);
var
  Strs :TStrings;
begin
  Strs :=TStringList.Create;
  // Strs.Add(Treeview1.Selected.Text);
  GetText(Strs, Treeview1.Selected.GetFirstChild);
  ListBox1.Items.Assign(Strs);
end;

Answer 3

上面的 GetText 方法有误，更正一下：
procedure GetText(Strs:TStrings;ANode:TTreeNode);
begin
  if ANode<>nil then
  begin
    Strs.Add(ANode.Text);
    GetText(Strs,ANode.GetFirstChild);
    GetText(Strs,ANode.GetNextSibling);
  end;
end;

Answer 4

 利用TreeView1.Selected，用while循环把各子结点的text读出来。 我去找找code。 狂人来也