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;