mormot 数据集和JSON互相转换

uses
SynVirtualDataSet, mORMotMidasVCL, SynCommons;

procedure TForm1.Button1Click(Sender: TObject);
var
json: RawUTF8;
begin

json := DataSetToJSON(ADOQuery1);
DataSource1.DataSet := JSONToClientDataSet(Self, json);
end;