怎么遍历一个TREEVIEW下面的所有子节点，包括子节点的子节点！？？？？？

Question

急！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！！

Answer 1

var i: Integer;
begin
  for i := 0 to TreeView1.Items.Count - 1 do
    ShowMessage(TreeView1.Items[i].Text);
end;

Answer 2

var 
  i: Integer;
begin
  for i := 0 to TreeView1.Items.Count - 1 do
    ' Do it TreeView1.items[i]
end;

Answer 3

递规啊,很基础的算法反复调用过程本身,Items做为参数

Answer 4

如果是TreeView中的全部数据不用了,TreeView.Items中包括了所有节点的信息

Answer 5

procedure GetInfo(TreeNode:TTreeNode);
  var
    i:integer;
  begin
    for i:=0 to TreeNode.Count-1 do
    begin
      if TreeNode[i].HasChildren then
      begin
        Showmessage(TreeNode.Item[i].Text);
        GetInfo(TreeNode[i]);
      end
      else
        Showmessage(TreeNode.Item[i].Text);
    end;
  end;
GetInfo(TreeView.Selected);//调用