dataset与json的转换

代码说明：

应用背景interface uses   SysUtils, Classes, DB, DBClient, superobject, ADODB, EncdDecd; function DataSetToJSON(ADataSet: TDataSet; var AJSON: WideString): Boolean; function JSONToDataSet(AJSON: WideString; ADataSet: TDataSet): Boolean; overload; function JSONToDataSet(AJSON: WideString; ADataSet: TADODataSet): Boolean; overload; function JSONToDataSet(AJSON: WideString; ADataSet: TCustomClientDataSet): Boolean; overload; implementation (*   C: 配置表     Encode 字符编码       0:ANSI 1:UNICODE 2:UTF-8       默认 1     BolbComp 二进制字段是否压缩       0:未压缩 1:已压缩       默认 0     CompMode 压缩模式       0:ZIP 1:RAR 2:7-ZIP       默认 2     BolbEncod