Szukam funkcji, która weźmie ciąg znaków JSON jako dane wejściowe i sformatuje je za pomocą podziałów linii i wcięć (kart).

Przykład: mam linię wejściową:

{"menu": {"header": "JSON viewer", "items": [{"id": "Delphi"},{"id": "Pascal", "label": "Nice tree format"}, null]}}

I chcesz uzyskać czytelny wynik jako tekst:

{
   "menu":{
      "header":"JSON viewer",
      "items":[
       {
         "id":"Delphi"
       },
       {
         "id":"Pascal",
         "label":"Nice tree format"
       },
       null
      ]
   }
}

Znalazłem wiele przykładów dla PHP i C #, ale nie dla Delphi. Czy ktoś mógłby pomóc w takiej funkcji?

Aktualizacja - rozwiązanie z SuperObject:

function FormatJson (InString: WideString): string; // Input string is "InString"
var
  Json : ISuperObject;
begin
  Json := TSuperObject.ParseString(PWideChar(InString), True);
  Result := Json.AsJson(true, false); //Here comes your result: pretty-print JSON
end;