Delphi 2010 中的 Rtti 数据操作和一致性

Question

有谁知道如何使用对原始数据的引用来制作 TValue ？在我的序列化项目中，我使用（如 XML-Serialization ）一个通用序列化器，它将 TValue 存储在内部树结构中（类似于示例中的 MemberMap）。

该成员树还应用于创建动态设置表单并操作数据。 我的想法是为数据定义一个属性：

TDataModel <T> = class
  {...}
  private
    FData : TValue;
    function GetData : T;
    procedure SetData (Value : T);
  public
    property Data : T read GetData write SetData;
end;

GetData、SetData 方法的实现：

procedure TDataModel <T>.SetData (Value : T);

begin
FData := TValue.From <T> (Value);
end;

procedure TDataModel <T>.GetData : T;

begin
Result := FData.AsType <T>;
end;

不幸的是，TValue.From 方法总是复制原始数据。因此，每当应用程序对数据进行更改时，DataModel 都不会更新，反之亦然，如果我以动态形式更改 DataModel，原始数据不会受到影响。 当然，我总是可以在更改任何内容之前和之后使用 Data 属性，但由于我在 DataModel 中使用了很多 Rtti，所以我真的不想在任何时候都这样做。

也许有人有更好的建议？

Answer 1

TValue 旨在以非常紧凑的形式保存任何类型的数据，它不是为了模拟“指针”而设计的。看一下 RTTI.pas 单元：TValue 是一个 RECORD，只有一个 TValueData 类型的数据成员。 TValueData 本身就是一个变体记录。

查看 TValueData，您会发现它除了最小量的数据外不保存任何内容：无法知道 TValue 来自何处。

解决方案：不要在结构中保留 TValue，而是用一对 TRttiField + 一个 TObject 替换它。当您需要 TValue 时，请使用 TRttiField.GetValue(Instance)，当您想要设置值时，请使用 TRttiField.SetValue(Instance, AValue:TValue)。

Answer 2

感谢 Cosmin 的帮助，解决方案不是在结构中保存 TValue，而是使用指向数据的指针并使用字段或属性的 GetValue、SetValue 方法。

以下是我在通用类中解决该问题的方法：

TDataModel <T> = class
  private
    FType     : PTypeInfo;
    FInstance : Pointer;
  public 
    constructor Create (var Data : T);
    procedure ShowContent;
  end;

constructor TDataModel <T>.Create (var Data : T);

begin
FType := TypeInfo(T);
if FType.Kind = tkClass then
  FInstance := TObject (Data)
else if FType.Kind = tkRecord then
  FInstance := @Data;
end;

procedure TDataModel <T>.ShowContent;
var 
  Ctx   : TRttiContext;
  Field : TRttiField;

begin
for Field in Ctx.GetType (FType).GetFields do
  Writeln (Field.GetValue (FInstance).ToString);
end;

现在，您可以通过使用 DataModel 或使用原始记录类来更改字段。