将数据写入PVirtualNode，无需手动设置各个字段值

Question

假设我有这个节点数据记录：

Type
  PPerson = ^TPerson;
  TPerson = record
   Name: String;
   Age: Integer;
   SomeBool: Boolean;
  end;

要填充我的 VirtualStringTree，我会这样做：

Procedure AddToTree(Person: TPerson);
Var
 Node: PVirtualNode;
 Data: PPerson;
Begin
 Node := VT.AddChild(nil);
 Data := VT.GetNodeData(Node);
 Data.Name := Person.Name;
 Data.Age  := Person.Age;
 Data.SomeBool := Person.SomeBool;
End;

Procedure TMyForm.MyButtonClick(Sender: TObject);
Var
 Person: TPerson;
Begin
 Person.Name := 'Jeff';
 Person.Age := 16;
 Person.SomeBool := False;
 AddToTree(Person);

End:

现在，虽然这工作得很好，但我想简化它，所以每当我向记录添加新字段时，我都不会修改 AddToTree方法。

所以我尝试了这个：

Procedure AddToTree(Person: TPerson);
Begin
 VT.AddChild(nil,@Person);
End;

这个编译，但是似乎PVirtualNode没有获取数据，因为我的VT没有显示任何内容，当中断OnGetText事件时，我看到变量是空的。

我做错了什么？ :)

Answer 1

记录支持赋值运算符：

procedure AddToTree(const Person: TPerson);
var
  Node: PVirtualNode;
  Data: PPerson;
begin
  Node := VT.AddChild(nil);
  Data := VT.GetNodeData(Node);
  Data^ := Person;
end;

Answer 2

您没有阅读手册 :)

好的，在本例中，来源是手册 - 引用 AddChild() 来源：

UserData可用于将用户数据区的前4个字节设置为可以使用的初始值
在 OnInitNode 中，即使节点尚未存在，也会触发 OnFreeNode 事件（如果 <> nil）
“正式”初始化。

IOW，它并不意味着按照您使用它/期望它工作的方式使用。

顺便说一句，你为什么要复制数据？为什么不使用

type
  PTreeData = ^TTreeData;
  TTreeData = record
   Data: PPerson;
  end;

New() 分配记录并将它们保留在树中，然后在树被清除时使用 Dispose() 呢？

Answer 3

使用记录作为数据持有者时，在 VTV 中存储数据的最佳方法是仅存储指向记录的指针，而记录本身单独存储在列表/数组中。当可视组件实际上并不拥有数据时，这也对应于虚拟和 MVC 范例。
IOW，添加记录的方案是：

• 使用 AllocMem、New、... 为记录分配内存 (!)
• 填充其字段
• 将其添加到列表/数组
• 使用 NodeData = PNewRecord 向 VTV 添加新节点

以及删除方案一条记录是：

• 使用 Finalize (!)从 VTV Finalize 记录中删除相应的节点
• ，从而避免内存泄漏
  引用计数字段
• 使用 FreeMem、Dispose、... 释放分配的内存
• 从列表/数组中删除项目

Answer 4

还有一个“我在问问题后 2 分钟就找到了答案”——多么丢人……:(

无论如何，所以——这可以通过使用 CopyMemory 来完成，如下所示：

Procedure AddToTree(Person: TPerson);
Var
 Data: PPerson;
 Node: PVirtualNode;
Begin
 // add node
 Node := VT.AddChild(nil);
 // Get data of the node
 Data := VT.GetNodeData(Node);
 // Copy the Person stuff to the Node's data.
 CopyMemory(Data,@Person,SizeOf(Person));
End;