0

有人可以给我看一个 VirtualStringTree.CopyTo 的好例子吗？我制作了一个添加、删除节点的应用程序，但无法使 CopyTo 正常工作。我的目标是使用 CopyTo 函数将节点及其子节点复制到另一个位置。CopyTo 函数似乎使用了 savenode 和 loadnode 函数......

澄清：我查看了我的 LoadNode 和 SaveNode 方法；

对于以下类型的 TTreedata，我做了以下加载和保存方法：

type
   PTreeData = ^TTreeData;
   TTreeData = record
      FCaption: String;
      FRichText: String;
      FImageIndex: integer;
      FVisibility: integer;
      FUniqueID: integer;
   end;


procedure vstSaveNode(Sender: TBaseVirtualTree; Node: PVirtualNode; Stream: TStream);
var
   Data: PTreeData;
   Len: integer;
begin
   Data:=Sender.GetNodeData(Node);

   //FCaption
   Len:=Length(Data.FCaption);
   Stream.Write(Len, SizeOf(Len));
   Stream.Write(PChar(Data.FCaption)^, Len * SizeOf(Char));

   //FRichText
   Len:=Length(Data.FRichText);
   Stream.Write(Len, SizeOf(Len));
   Stream.Write(PChar(Data.FRichText)^, Len * SizeOf(Char));

   //FImageIndex
   Stream.Write(Data.FImageIndex, SizeOf(Data.FImageIndex));

   //FVisibility
   Stream.Write(Data.FVisibility, SizeOf(Data.FVisibility));

   //FUniqueID
   Stream.Write(Data.FUniqueID, SizeOf(Data.FUniqueID));

end;

procedure vstLoadNode(Sender: TBaseVirtualTree; Node: PVirtualNode; Stream: TStream);
var
   Data: PTreeData;
   Len: Integer;
begin
   Data := Sender.GetNodeData(Node);
   //Len:=Length(Data.FCaption);

   //FCaption
   Stream.Read(Len, SizeOf(Len));
   SetLength(Data.FCaption, Len);
   Stream.Read(PChar(Data.FCaption)^, Len * SizeOf(Char) );

   //FRichText
   Stream.Read(Len, SizeOf(Len));
   SetLength(Data.FRichText, Len);
   Stream.Read(PChar(Data.FRichText)^, Len * SizeOf(Char));

   //FImageIndex
   Stream.Read(PChar(Data.FImageIndex)^, SizeOf(Data.FImageIndex));

   //FVisibility
   Stream.Read(PChar(Data.FVisibility)^, SizeOf(Data.FVisibility));

   //FUniqueID
   Stream.Read(PChar(Data.FUniqueID)^, SizeOf(Data.FUniqueID));
end;

当我在选定节点上使用复制功能时，当我在调试模式下进入功能 LoadNode 时，它​​给我一个访问冲突（Delphi XE8）在该行写入地址 000000000000000

  Stream.Read(PChar(Data.FImageIndex)^, SizeOf(Data.FImageIndex));

谢谢

4

0 回答 0