TJSONValue.Format fügt Escapezeichen ein. (Neu in Delphi 12?)

**bernau**

Folgender (Test-)Quellcode:

Delphi-Quellcode:

			procedure TFormBeautifyTest.BitBtn1Click(Sender: TObject);

var

  lJSONValue: TJSONValue;

  lJsonString: String;

  lJsonPair: TJsonPair;

begin

  lJsonString := '{"object": "value","test/html": "http://url"}';

  lJSONValue := TJSONObject.ParseJSONValue(lJsonString, true, true);

  try

    MemoDest.Lines.Text := lJSONValue.Format(2);

    //MemoDest.Lines.Text := lJSONValue.tostring; // <- hier gibt es auch den Fehler. Nur unformatiert.

    // Mal den Inhalt der JSON-Objekte testen. Hier ist der Wert korrekt.

    lJsonPair := TJSONObject(lJSONValue).Pairs[1];

    MemoDest.Lines.add('');

    MemoDest.Lines.add(lJsonPair.JsonString.Value);

    MemoDest.Lines.add(lJsonPair.JsonValue.Value);

  finally

    lJSONValue.Free;

  end;

end;

Eigentlich erwarte ich folgenden output:

markieren

Code:

			{

  "object": "value",

  "test/html": "http://url"

}

test/html

http://url

Tatsächlich werden die Slashes mit einem Backslash escaped. Ist aber in einem JSON-Text nicht vorgesehen/notwendig.

markieren

Code:

			{

  "object": "value",

  "test\/html": "http:\/\/url"

}

test/html

http://url

Bin mir nicht sicher, aber mich meine es war in Delphi 11 nicht so.

Oder habe ich irgendetwas übersehen? Gibt es ein Property, welches die Escape-Zeichen unterdrückt?

TJSONValue.Format fügt Escapezeichen ein. (Neu in Delphi 12?)

TJSONValue.Format fügt Escapezeichen ein. (Neu in Delphi 12?)

Forumregeln