json - Delphi Superobject，通用列表到 json

Question

我有一个带有一些 TObjectList<> 字段的对象，我尝试使用帮助表单 SuperObject 将其编码为 JSON .

TLogs = TObjectList<TLog>;
TMyObject = class(TObject)
private
  FLogs: TLogs;
end;

在 SuperObjects 代码深处，有一个 ToClass 过程，它迭代字段并将它们添加到 json 结果中。

在此循环中，会检查 TRttiFields FieldType。如果为零，则跳过该对象。

for f in Context.GetType(Value.AsObject.ClassType).GetFields do
  if f.FieldType <> nil then
  begin
    v := f.GetValue(value.AsObject);
    result.AsObject[GetFieldName(f)] := ToJson(v, index);
  end

我的通用列表字段的 FieldType 为 nil。为什么？

如何让 SuperObject 序列化我的对象列表？

Answer 1

这是 Delphi RTTI 创建中的一个已知问题。如果您像这样声明泛型类，它将不起作用。您需要使用class关键字。

TLogs = class(TObjectList<TLog>);

希望这个问题能在下一个版本中得到修复。