刚好需要将 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;

05-25 19:41