刚好需要将 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);
需要 usesFireDAC.Stan.Intf;