德尔福的“降序”记录？

GenericRec = Record
  case SubTypename: TSubTypename of
    type1name: (SubRec: Type1);
    type2name: (SubRec: Type2);
    ...
    typeNname: (SubRec: TypeN);
  end;

TMyClass = Class

处理此类数据的“自然”方式是使用类,而不是记录.在定义时和处理实现时,它将更容易使用：特别是,虚拟方法非常强大,可以为特定类的类定制流程.然后在较新版本的Delphi中使用TList / TObjectList或TCollection或基于泛型的数组来存储列表.

关于序列化,有几种方法可以做到这一点.见Delphi: Store data in somekind of structure

在您的特定情况下,困难来自您正在使用的“变体”类型的记录.恕我直言,主要缺点是编译器将拒绝在“变体”部分内设置任何引用计数类型的变量(例如字符串).因此,您将只能在此“变体”部分中编写“普通”变量(如整数).恕我直言,这是一个很大的限制,这降低了这个解决方案

另一种可能性是在其定义的开头存储记录类型,例如,使用RecType：整数甚至更好的RecType：TEnumerationType,它比数字更明确.但是你必须手工编写很多代码,并使用指针,如果你不是非常流利的指针编码,这有点@R_341_10197@.

因此,您还可以存储记录的类型信息,可通过TypeInfo(aRecordVariablE)访问.然后你可以使用FillChar将记录内容初始化为零,在分配之后,然后使用以下函数来完成记录内容,就在释放之后(这就是Dispose()在内部执行的操作,你应该调用它,否则你’ ll泄漏记忆)：

procedure RecordClear(var Dest; TypeInfo: pointer);
asm
  jmp System.@FinalizeRecord
end;

但是这样的实施模式只会重新发明轮子！实际上是如何实现类的：任何TObject实例的第一个元素是指向其ClassType的指针：

function TObject.ClassType: TClass;
begin
  Pointer(Result) := PPointer(Self)^;
end;

Delphi中还有另一种结构,称为对象.它是某种记录,但它支持继承 – 见this article.这是Turbo Pascal 5.5天的旧式OOP编程,已被弃用,但仍然可用.请注意,我发现了一个weird compilation issue on newer versions of Delphi：有时,堆栈上分配的对象并不总是被初始化.

看看我们的TDynArray包装器及其相关函数,它们能够将任何记录内容序列化为二进制或JSON.见Delphi (win32) serialization libraries问题.它将与变体记录一起使用,即使它们在不变量部分中包含字符串,而普通的“Write / BlockWrite”也不适用于引用计数字段.