剛好需要將 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;