DataSet Serialize

Delphi 和 Lazarus (FPC) 的数据集json序列化

uses DataSet.Serialize;
数据集序列为json

var
  LJSONArray: TJSONArray;
  LJSONObject: TJSONObject;  
begin
  LJSONObject := qrySamples.ToJSONObject(); // 导出单个记录
  LJSONArray := qrySamples.ToJSONArray(); // 导出所有记录 
end;