mormot 数据集和JSON互相转换uses SynVirtualDataSet, mORMotMidasVCL, SynCommons;procedure TForm1.Button1Click(Sender: TObject);var json: RawUTF8;beginjson := DataSetToJSON(ADOQuery1); DataSource1.DataSet := JSONToClientDataSet(Self, json);end;