高版本生成json方法
use data.DBJson,system.JSON
procedure TForm18.Button2Click(Sender: TObject);
var
cV: TDatasetToJSONBridge;
jo: Tjsonobject;
begin
cV := TDatasetToJSONBridge.Create;
try
cV.Dataset := mt;
jo := Tjsonobject(cV.Produce);
Memo1.Lines.Add(jo.ToString);
finally
cV.Free;
end;
end;