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;