刚好需要将 FireDAC DataSet (TFDDataSet, TFDQuery...) 转成 JSON,网上找了一圈,原来从 XE6 开始就支持这个功能了:
储存:
DataSet1.SaveToFile('d:Data.json', TFDStorageFormat.sfJSON);
载入:
DataSet1.LoadFromFile('d:Data.json', TFDStorageFormat.sfJSON);
支持的格式有:
TFDStorageFormat = (sfAuto, sfXML, sfBinary, sfJSON);
需要 uses FireDAC.Stan.Intf;