Xalion发现data.DBJson单元,不知什么时候加的,官方帮助中也没有写。
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 }]
感谢Xalion!
标签:f2,f3,转红,TDatasetToJSONBridge,导出,cV,jo,DataSet,Delphi From: https://www.cnblogs.com/Thenext/p/17826078.html