REST.Json.TJson.ObjectToJsonString formatiert ausgeben?

[Sir Rufo]

Klar gibt es das:

Delphi-Quellcode:

function GetFormattedJson(AObject:TObject) : string
begin
  LJson := REST.Json.TJson.ObjectToJsonObject( AObject );
  try
    Result := REST.Json.TJson.Format( LJson );
  finally
    LJson.Free;
  end;
end;