怎么遍历树或者遍历树的某个子节点啊

Question

3Q

Answer 1

var
  vIndex : Integer;
begin
  For vIndex := 0 To TreeView1.Items.Count -1 do
  begin
    ShowMessage(TreeView1.Items[vIndex].Text);
  end;
end;----------------
沉沦中..........

Answer 2

procedure VisitTree(root:node)proc(root);
visitTree(root.leftchild)
visitTree(root.rightchild)
end

Answer 3

procedure TForm1.Button1Click(Sender: TObject);
var v_node:TTreeNode;
begin
  v_node:=treeview1.Items.GetFirstNode;
  while v_node<>nil do
  begin
    listbox1.Items.Add(v_node.Text);
    v_node:=v_node.GetNext;
  end;
end;給分吧。絕對可行。