请问如何实现树中的两个节点的交换。下面的代码不行。多谢

Question

node:=Tree.Items.Item[i];
      Tree.Items.Item[i]:=Tree.Items.Item[j];
      Tree.Items.Item[j]:=node;

Answer 1

procedure TForm1.Button1Click(Sender: TObject);
var
  vText: string;
  vImageIndex, vSelectedIndex: Integer;
  I, J: Integer;
begin
  I := 1; J := 5;  vText := TreeView1.Items[I].Text;
  vImageIndex := TreeView1.Items[I].ImageIndex;
  vSelectedIndex := TreeView1.Items[I].SelectedIndex;  TreeView1.Items[I].Text := TreeView1.Items[J].Text;
  TreeView1.Items[I].ImageIndex := TreeView1.Items[J].ImageIndex;
  TreeView1.Items[I].SelectedIndex := TreeView1.Items[J].SelectedIndex;  TreeView1.Items[J].Text := vText;
  TreeView1.Items[J].ImageIndex := vImageIndex;
  TreeView1.Items[J].SelectedIndex := vSelectedIndex;
end;

Answer 2

应该能通过Assign方法来实现的吧！********************************************************************
*TryMyBestToKnowSomethingAboutEverythingAndEverythingAboutSomething! 
********************************************************************

Answer 3

node := TTreeNode.Create(nil);
  try
    node.Assign(Tree.Items.Item[i]);
    Tree.Items.Item[i].Assign(Tree.Items.Item[j]);
    Tree.Items.Item[j].Assign(node);
  finally
    node.Free;
  end;
********************************************************************
*TryMyBestToKnowSomethingAboutEverythingAndEverythingAboutSomething! 
********************************************************************