高版本生成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;

 

转自https://www.cnblogs.com/kinglandsoft/p/17475160.html