树的遍历

Question

哪个达人可以给我树的遍历的源码？注意，不是二叉树！

Answer 1

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;

Answer 2

同意楼上的，
v_node:=treeview1.Items.GetFirstNode;也可以写成
v_node:=treeview1.Items.TopItem;