如何在Delphi（Rest.JSON）中隐藏TObjectList的ownsObjects和listHelper属性

嘿，这个问题我之前对接WebService的时候也踩过坑！Delphi的TObjectList自带的ownsObjects和listHelper这两个内部属性，会被Rest.Json的序列化逻辑当成普通public属性输出，导致WebService无法识别。不过有几个简单有效的办法可以解决：

方法一：自定义TObjectList子类并标记排除属性 #

创建一个继承自TObjectList的子类，用[JsonExclude]属性明确指定要忽略的内部字段，这样序列化时就会自动跳过它们：

type
  // 标记要排除的内部属性
  [JsonExclude('ownsObjects', 'listHelper')]
  TMyTypedObjectList<T: class, constructor> = class(TObjectList<T>)
  end;

之后在你的业务对象里，把原来的TObjectList<T>类型替换成这个自定义子类即可。比如：

type
  TMyData = class
  private
    FItems: TMyTypedObjectList<TItem>;
  public
    property Items: TMyTypedObjectList<TItem> read FItems write FItems;
    constructor Create;
    destructor Destroy; override;
  end;

这种方法的好处是一劳永逸，所有使用这个子类的地方都会自动排除不需要的字段。

方法二：序列化时通过配置忽略指定字段 #

如果不想自定义子类，也可以在调用ObjectToJsonString时，传入TJsonSerializerSettings来动态指定要忽略的字段：

var
  SerializerSettings: TJsonSerializerSettings;
  JsonResult: string;
  MyDataObj: TMyData;
begin
  MyDataObj := TMyData.Create;
  try
    // 初始化序列化配置
    SerializerSettings := TJsonSerializerSettings.Create;
    try
      // 添加要忽略的内部字段
      SerializerSettings.IgnoreFields.Add('ownsObjects');
      SerializerSettings.IgnoreFields.Add('listHelper');
      // 执行序列化
      JsonResult := TJson.ObjectToJsonString(MyDataObj, SerializerSettings);
    finally
      SerializerSettings.Free;
    end;
    // 这里可以使用生成的JSON字符串
  finally
    MyDataObj.Free;
  end;
end;

这种方法更灵活，适合只需要在特定场景下忽略字段的情况。

为什么会出现这个问题？ #

Rest.Json的默认序列化逻辑会遍历对象的所有public属性，而TObjectList的ownsObjects是控制对象所有权的核心属性，listHelper是Delphi为集合类提供的语法糖辅助属性，它们都属于public级别，所以会被默认序列化出来。通过上面的方法，我们可以告诉序列化器跳过这些对WebService无用的内部字段。

内容的提问来源于stack exchange，提问作者Fernando Vallim