delphi - 记录中的字符串生命周期管理

Question

我正在努力摆脱短字符串。 当前在我们的程序中使用短字符串的许多地方之一是在记录中。 许多这些记录都保存在 AVL 树中。

使用的 AVL 树是一种通用树，它保存一个指向多个字节的指针 (ElemSize)，到目前为止效果良好。 AVL树中每条记录的内存通过GetMem分配，并通过Move复制。 但是，由于字符串是指向引用计数结构的指针，因此将内存复制回记录不再有效，因为引用的字符串通常会被释放(通过引用计数自动释放)。 仅使用指针和“数据 block ”的大小，我认为不可能增加字符串的引用计数。

我正在寻找一种方法来获取在 AVL 树中存储记录时要考虑的字符串的引用计数。

我可以将记录类型传递给树构造函数，然后将指针转换为该类型，从而增加引用吗？或者类似的修复，我可以将更改主要隔离在 AVL 单元中并调用其构造函数。

当前在AVL中分配存储记录的空间的代码； XData是指向要存储的记录的指针:

New(RootPtr); { create new memory space }
GetMem(RootPtr^.TreeData, ElemSize);
WITH RootPtr^ DO BEGIN
    { copy data }
    Move(XData^, RootPtr^.TreeData^, ElemSize);

Answer 1

本质上，您要问的问题是:

How can I allocate, copy and deallocate a record when all I know about its type is its size?

简单的答案是，只要记录不包含托管类型，您就可以使用 GetMem、Move 和 FreeMem。您希望处理包含托管的 Delphi 字符串的记录。因此，您当前使用 GetMem 和 Move 的方法还不够。

有很多方法可以解决这个问题。只要您知道托管类型在记录中的位置，您就可以编写自己的代码来进行引用计数。我不推荐这个。您可以将用户数据作为一个类，并使用多态性来提供帮助。

我想讨论的选项继续支持记录，并且确实允许用户选择他们喜欢的任何类型。推理如下:

如果类型包含托管类型，则对其进行操作需要了解该类型。如果树是通用的，那么它就不可能拥有这些知识。因此，知识必须由树的用户提供。

这将引导您前往事件。让树提供用户可以为其提供处理程序的事件。类型如下所示:

type
  PTreeNodeUserData = type Pointer;

  TTreeNodeCreateUserDataEvent = function: PTreeNodeUserData of object;
  TTreeNodeDestroyUserDataEvent = procedure(Data: PTreeNodeUserData) of object;
  TTreeNodeCopyUserDataEvent = procedure(Source, Dest: PTreeNodeUserData) of object;

然后，您可以安排树发布用户可以订阅的这些类型的事件。

重点是，这允许树的用户提供有关用户数据类型的缺失知识。