变体记录的 Rtti答案

【问题标题】：Rtti for Variant Records变体记录的 Rtti
【发布时间】：2010-05-03 09:25:41
【问题描述】：

我尝试用 Delphi 2010 编写一种对象/记录序列化程序，想知道是否有办法检测记录是否是变体记录。例如。 Types.pas 中定义的 TRect 记录：

TRect = record
case Integer of
  0: (Left, Top, Right, Bottom: Longint);
  1: (TopLeft, BottomRight: TPoint);
end;

由于我的序列化程序应该在我的数据结构上递归工作，它会下降到 TPoint 记录并在我的序列化文件中生成冗余信息。有没有办法通过获取记录中的详细信息来避免这种情况？

【问题讨论】：

到目前为止你尝试了什么？

标签： delphi serialization delphi-2010 rtti records

【解决方案1】：

一种解决方案可能如下：

procedure SerializeRecord (RttiRecord : TRttiRecord)

var
  AField : TRttiField;
  Offset : Integer;

begin
Offset := 0;
for AField in RttiRecord.Fields do
  begin
  if AField.Offset < Offset then Exit;
  Offset := AField.Offset; //store last offset
  SerializeField (AField);
  end;
end;

但这种解决方案并不是适用于所有情况。它仅适用于序列化，如果不同的变体包含相同的信息和相同的类型。如果您有以下内容（来自 wikipedia.org）：

type   
  TVarRec = packed record
  case Byte of
    0: (FByte: Byte;
        FDouble: Double);
    1: (FStr: ShortString);
  end;

你会序列化

FByte=6
FDouble=1.81630607010916E-0310

还是序列化比较好

FStr=Hello!

是的，当然，这对于计算机也是一样的，但对于人类应该可读甚至可编辑的文件则不然。

所以我认为，解决问题的唯一方法是使用属性来定义应该使用哪个变体进行序列化。

【讨论】：

顺便说一句：记录的变体部分的大小可以不同！使用当前的解决方案可能会丢失信息。所以应该检查一下累积的字段大小是否适合记录的大小。