REST.Json.TJson.ObjectToJsonString formatiert ausgeben?

[TiGü]

Hallo zusammen,

zwecks diverser Konfigurationseinstellungen speichere ich mir Datentransferobjekte per REST.Json.TJson.ObjectToJsonString in einen String, der dann über eine TStringList auf der Festplatte landet

Wenn ich die entstandene Json-Datei per Editor, in diesen Fall Notepad++, öffne, dann steht der ganze JSON-String in einer Zeile.

Zwar kann man sich über die Notepad++-Erweiterung JSTool ganz leicht den JSON-String schön formatieren, aber kann ich nicht schon im Programmcode mit wenig Aufwand den JSON-String formatieren?
Gibt es da schon was fertiges im Emba-Framework?

[Der schöne Günther]

Zitat von TiGü:

Gibt es da schon was fertiges im Emba-Framework?

Nein, leider nicht.

[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;

[TiGü]

Wenn es Sir Rufo nicht geben würde, man müsste ihn glatt erfinden!

Zwar ist das Ergebnis nicht ganz so hübsch, aber auf jeden Fall besser lesbarer und von Menschen bearbeitbarer (was für ein Wort!), als zuvor.

[mkinzler]

Wobei das eigentlich nicht der Sinn von json ist.

[Der schöne Günther]

Tja. Als ich das mal wollte, suchte ich auf StackOverflow nach "Delphi json prettyprint" und der dort allmächtige David Heffernan sagte "Nö, gibt's nicht".

Anstatt das kritisch zu hinterfragen legte ich die Hände in den Schoß und akzeptierte es. Was sagt das nur über mich aus?

[TiGü]

Zitat von mkinzler:

Wobei das eigentlich nicht der Sinn von json ist.

Ist ja auch erstmal nur für mich und allmal besser als INI- oder XML-Dateien.

[TiGü]

Zitat von Der schöne Günther:

Was sagt das nur über mich aus?

Das du zu faul warst, das Delphi-Forum deiner Wahl zu konsultieren?
Bzw. die Antworten auf SO über denen der DP stellt?

[Sir Rufo]

Zitat von Der schöne Günther:

Anstatt das kritisch zu hinterfragen legte ich die Hände in den Schoß und akzeptierte es. Was sagt das nur über mich aus?

Typisches Weißkittel-Syndrom

Ich bin so erzogen worden, dass Menschen mit einem weißen Kittel nur Menschen mit einem weißen Kittel sind. Und die haben die absolute Wahrheit und Weisheit genauso wenig gepachtet wie ich.

Es vereinfacht auch das Miteinander, wenn man jedem das Recht auf Unwissen und Irrtum belässt

[Uwe Raabe]

Zitat von Der schöne Günther:

Tja. Als ich das mal wollte, suchte ich auf StackOverflow nach "Delphi json prettyprint" und der dort allmächtige David Heffernan sagte "Nö, gibt's nicht".

Wobei ich jetzt nicht sicher sagen kann, ob das damals schon drin war.

David's Präsenz dort ist schon manchmal unheimlich. Ich frage mich manchmal, was er sonst so überhaupt noch macht. Da er allerdings viele Dinge selbst implemenentiert, um von RTL und VCL unabhängig zu sein (weil das zumindest in der Vergangenheit nicht immer so funktionierte, wie er das wollte), sind seine Kenntnisse gerade in diesem Bereich nicht immer auf dem neuesten Stand.

Zugegeben, den vollen Leistungsumfang allein der RTL immer im Kopf parat zu haben, ist schon eine sportliche Herausforderung.