TJson.Format und TJSONAncestor.Format

[Edelfix]

Hallo,

irgendwie komme ich hier nicht weiter. Wie wende ich das neue TJSONAncestor.Format an?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  jsRequestObj: TJSONObject;
  sJsonString: string;
begin
  sJsonString := '{"allowOnlyShift": false,"stay": {"checkIn": "2019-10-01", "checkOut": "2019-10-02"}, "occupancies": [{"rooms": "1","adults": "2","children": "0"}],"destination": {"code": "NYC"}}';
  jsRequestObj   := TJSONObject.ParseJSONValue(sJsonString) as TJSONObject;
  Memo1.Lines.Add(TJson.Format(jsRequestObj));
  //Memo1.Lines.Add(TJsonAncestor.Format(jsRequestObj));  // So geht es nicht!!!
end;

[mjustin]

Vermutlich so:
Memo1.Lines.Add(jsRequestObj.Format);
http://docwiki.embarcadero.com/Libra...ncestor.Format

[Edelfix]

Danke,

habe es herausgefunden. War ganz einfach.

Memo1.Lines.Add(jsRequestObj.Format);