mormot2 json

mormot2 json

unit mormot.core.variants;

Pjson = Pdocvariantdata;

Tjson = Tdocvariantdata;

  jo.InitObject([]);
  jo.S['tablename'] := tablename;
  ja.InitArray([]);
  ja.AddItem(_json(dataset.ToJSONObjectString));
  jo.AddValue('dataset', _json(ja.ToJson));

function jsonFromFile(filename: string): Tjson;
begin
  result.InitJsonFromFile(filename);
end;

function success(msg: string = 'ok'): string;
var
  jo: Tjson;
begin
  jo.InitObject([]);
  jo.B['success'] := True;
  jo.I['code'] := 20000;
  jo.S['message'] := msg;
  result := jo.ToJson;
end;

function jsonObject(json: string): Tjson;
begin
  result.InitJson(json);
end;

        jo.AddValue('dataset' + i.ToString, _json(db.qry.tojsonarraystring));

    if not jo.Exists('filename') then

    send(ctxt, jo.ToJson);

 

 var o, ja: Pjson;
for i := 0 to ja.Count - 1 do
  begin
    o := ja._[i];