REST.Json.TJson serialisiert "falsch" leere dyn. Arrays?

[TiGü]

Zitat von Zacherl:

Edit:
Als Workaround wirst du bei diesem speziellen Objekt wohl manuell das entsprechende Pair entfernen (und ggfls. als leeres TJSONArray Element neu hinzufügen) müssen.

Wäre zwar irgendwie "richtiger", aber da der entstehende JSON-String für mein eigentliches Problem-Objekt recht kompakt ist und es sonst nur String- und Zahlen-Typen hat bin ich jetzt auf diese hemdsärmlige Lösung umgestiegen:

Delphi-Quellcode:

 
function FixJsonSerializationForEmptyArrays(const AJsonString: string): string;
begin
  Result := StringReplace(AJsonString, 'null', '[]', [rfReplaceAll, rfIgnoreCase])
end;