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