Delphi Superobject,json的通用列表

发布时间：2020-12-15 09:27:00 所属栏目：大数据来源：网络整理

导读：我有一个带有一些TObjectList -fields的对象,我尝试使用帮助形式 SuperObject编码为JSON. TLogs = TObjectListTLog;TMyObject = class(TObject)private FLogs: TLogs;end; 在SuperObjects代码内部,有一个ToClass过程,迭代字段并将它们添加到json结果中. 在此

我有一个带有一些TObjectList<> -fields的对象,我尝试使用帮助形式 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序列化我的对象列表？

解决方法

这是Delphi的RTTI创建中的一个已知问题.如果你声明你的泛型类,它将无法工作.您需要使用class关键字.

TLogs = class(TObjectList<TLog>);

希望这将在下一个版本中修复.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!