mORMot Json simple example.dpr

program Project1;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  Syncommons;


const
  CurrentJson ='{'+
                '"success": true,'+
                '"message": "EcoDrivingIndex updated on 1 drivers"'+
                '}';
//
//Whish to change to this
//{
//	"success": true,
//	"message": "EcoDrivingIndex updated on 1 drivers",
//	"driversnotfound":
//	[
//		"293294",
//		"293298"
//	]
//}
var json , JsonArray: variant;
begin
  JsonArray := _Arr(['293294','293298']);
  json := _Json(CurrentJson);
  TDocVariantData(json).AddValue('driversnotfound',JsonArray);
  // Testing
  assert(TDocVariantData(json).A['driversnotfound'].Values[0]='293294');
  assert(TDocVariantData(json).A['driversnotfound'].Values[1]='293298');
  writeln(json);
  readln;
end.