Thema: Delphi JSon Formatieren

Einzelnen Beitrag anzeigen

TiGü

Registriert seit: 6. Apr 2011
Ort: Berlin
3.070 Beiträge
 
Delphi 10.4 Sydney
 
#22

AW: JSon Formatieren

  Alt 19. Jul 2018, 13:34
Ich kram es nochmal raus.

Wie kann ich mit Delphi Tokyo Bordmitteln einen JSON-String formatieren und de-formatieren (alle Whitespaces etc wieder entfernen)?

TJson.JsonToObject kommt nämlich nur mit unformatieren Daten zurecht. Ich möchte den JSON-String aber dem Benutzer zum Bearbeiten anbieten, was nur formatiert Sinn macht.
Delphi-Quellcode:
 
var
 MyJSONString, MyFormattedJSONString: string;
 JsonValue: TJSONValue;
begin
...

      MyJSONString := RESTResponse.Content;
      Memo1.Lines.Add(MyJSONString);
      JsonValue := TJSONObject.ParseJSONValue(MyJSONString);
      if Assigned(JsonValue) then
      begin
        MyFormattedJSONString := REST.Json.TJSON.Format(JsonValue);
        Memo1.Lines.Add(MyFormattedJSONString);
...
        // und wieder zurück
        MyJSONString := MyFormattedJSONString.Replace(sLineBreak, '').Replace(' ', '');
        Memo1.Lines.Add(MyJSONString);
      end;
  Mit Zitat antworten Zitat