Delphi 用TDatasetToJSONBridge原生支持DataSet导出Json（转红鱼儿）

 1 procedure TForm18.Button2Click(Sender: TObject);
 2 var
 3   cV: TDatasetToJSONBridge;
 4   jo: Tjsonobject;
 5 begin
 6   cV := TDatasetToJSONBridge.Create;
 7   try
 8     cV.Dataset := mt;
 9     jo := Tjsonobject(cV.Produce);
10     Memo1.Lines.Add(jo.ToString);
11   finally
12     cV.Free;
13   end;
14 end;

 1 [{
 2     "f1": "0",
 3     "f2": 0,
 4     "f3": 0,
 5     "f4": 0
 6 }, {
 7     "f1": "1",
 8     "f2": 1,
 9     "f3": 1,
10     "f4": 1
11 }]