VirtualTreeView 复制树与数据答案

【问题标题】：VirtualTreeView copy tree with dataVirtualTreeView 复制树与数据
【发布时间】：2013-02-16 11:55:23
【问题描述】：

如何将所有节点从一个 VirtualTreeView 复制到另一个？我尝试使用 CopyTo 功能，但数据为空，为什么？数据包含对记录的引用（像往常一样）。

我也尝试使用@Cosmin Prund 在他现已删除的答案中建议的OnNodeCopying 事件，但它会崩溃：

procedure TDataBaseForm.SourceTreeViewNodeCopying(Sender: TBaseVirtualTree; 
  Node, Target: PVirtualNode; var Allowed: Boolean); 
var 
  SourceNodeData, DestNodeData: PNodeDataForCompare; 
begin 
  SourceNodeData := Sender.GetNodeData(Node); 
  DestNodeData := VirtualStringTree1.GetNodeData(Target); 
  if Assigned(SourceNodeData) then 
  begin 
    DestNodeData^ := SourceNodeData^; 
  end; 
  Allowed := true; 
end;

【问题讨论】：

我怎样才能让您在我的问题中包含代码？我是 stackoverflow 的新手。
这只是一个修辞 :-) 我已经包含了 @Cosmin 的评论中的代码（现已删除的答案），但请 edit your question 并包含您的确切错误消息得到，当你使用该代码时。而且，欢迎使用 StackOverflow！
如果你说“它崩溃了”，那么我只能说：“好吧，修复它！”。如果您告诉我们发生了什么异常、错误消息是什么以及发生在哪一行，我们或许可以帮助您修复它。
CopyTo 的工作方式有点麻烦：所有要复制的节点首先流式传输到内存中的流，然后重新创建。在重新创建节点时，会调用 OnNodeCopying，但使用无用的参数：Node 是新创建的节点，Target 是传递给 CopyTo() 的 Target 节点。这就是为什么我删除了我的答案，不幸的是，这是一个糟糕的“线索”。您需要原始节点 + 新节点才能复制数据，但您会获得新节点和用作目标的节点。
另一种想法是实现OnSaveNode 和OnLoadNode 以将节点保存/读取到VirtualTreeView 使用的流中。我认为这两个会使 VT 的复制工作，但我没有时间测试，我不想提供其他可能不起作用的部分答案。

标签： delphi virtualtreeview

【解决方案1】：

我已经深入研究了CopyTo() 的工作原理。所有要复制的节点首先保存到流中，然后在目标 VirtualTree 上重新创建流中的节点。需要将用户节点数据复制到该流中，否则在目标 VirtualTree 中重新创建节点时将无法使用。

处理流式用户数据的事件是：

OnSaveNode
OnLoadNode

VirtualTree 使用这些方法是有意义的，因此将流用作中间对象是有意义的。 VirtualTree 还允许将树保存到文件中，并将节点复制粘贴到剪贴板和从剪贴板复制粘贴。所有这些方法都需要以某种方式复制用户的“有效负载”！在实现这些事件之后，CopyTo 方法运行良好，将第一棵树的内容保存到磁盘并将其重新加载到第二棵树中也是如此。我还测试了复制粘贴，效果很好。

这是我对OnSaveNode 和OnLoadNode 的实现。复制粘贴我的方法很可能对您不起作用，因为它取决于您放入节点有效负载中的数据类型。在我的示例中，我放置了仅由一个整数组成的记录（不是指向记录的指针）：这些记录可以安全地流式传输到磁盘并重新加载，它们不是托管类型，它们是简单的值类型。如果您将指针放入记录中（您称它们为引用记录），您仍然可以使用它并且它会起作用，但您会复制 POINTERS：您没有得到新记录，它们是相同的记录；您显然无法将 Tree 保存到文件中，重新启动程序并从磁盘重新加载。

procedure TForm6.VT1SaveNode(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Stream: TStream);
begin
  Stream.Write(Sender.GetNodeData(Node)^, (Sender as TVirtualStringTree).NodeDataSize);
end;

procedure TForm6.VT2GetText(Sender: TBaseVirtualTree; Node: PVirtualNode;
  Column: TColumnIndex; TextType: TVSTTextType; var CellText: string);
begin
  CellText := IntToStr(PNodeDataForCompare(VT1.GetNodeData(Node)).Payload);
end;

最后一点：对于您的场景，您需要在源树上实现OnSaveNode，在目标树上实现OnLoadNode；我使用相同的代码在两者上实现了它们。

【讨论】：

我尝试使用您的代码，但它不适合我（节点数据为空）。我还使用简单的值类型（字符串和整数值）。你能附上你的项目文件吗？我将尝试将其与我的代码进行比较。
等一下，我将整个测试项目粘贴到bin中。
Unit6.pas 和 Unit6.dfm 的粘贴箱；你会看到我所做的每一个测试，包括 CopyTo、Copy-Paste、Save to file、Reload from file。

【解决方案2】：

unit VirtualTrees;

...

function TBaseVirtualTree.CopyTo(Source, Target: PVirtualNode; Mode: TVTNodeAttachMode; ChildrenOnly: Boolean): PVirtualNode;

...

        Result := TargetTree.MakeNewNode;
        InternalConnectNode(Result, Target, TargetTree, Mode);
        TargetTree.InternalAddFromStream(Stream, VTTreeStreamVersion, Result);
        if not DoNodeCopying(Result, Source {Target}) then //        <=======
        begin
          TargetTree.DeleteNode(Result);
          Result := nil;
        end

...

【讨论】：