TreeView控件的使用出现的小问题

Question

procedure TForm1.Button2Click(Sender: TObject);
var
  Nodes: TTreeNodes; 
begin 
  Nodes := TreeView2.Items;
  if Boolean(Nodes.Count) then
  begin
    TreeView1.Items := Nodes;
    TreeView2.Items.Clear;
  end;
end;
为什么下面的代码就不能实现上面功能。
procedure TForm1.Button2Click(Sender: TObject);
var
  Nodes1,Nodes2: TTreeNodes; 
begin
  Nodes1 := TreeView1.Items;
  Nodes2 := TreeView2.Items;
  if Boolean(Nodes2.Count) then
  begin
    Nodes1 := Nodes2;
    Nodes2.Clear;
  end;
 end;

Answer 1

:= 表示的是把地址复制过去。
你试试看Assign可以否。
如果再不行。多一点代码，一个个添加，总是可以的。

Answer 2

treeview的node是个指针，指向的是一个地址，你要把地址的值取出来吧

Answer 3

将Nodes1 := Nodes2; 换成以下的代码即可：
 Nodes1.Assign(Nodes2);
已经测试过。