Delphi中JSon_SuperObject_使用数据集和JSON对象互转.docVIP

在delphi中，数据集是最常用数据存取方式。因此，必须建立JSON与TDataSet之间的互转关系，实现数据之间通讯与转换。值得注意的是，这只是普通的TDataset与JSON之间转换，由于CDS包含了Delta数据包，其数据格式远比普通的TDataset更复杂。 数据集字段信息，是一个完整的字典信息。因此，我们在JSON必须也建立字典信息，才能创建数据集的字段信息。我们设置其JSON信息如下：  COLS:[字段列表信息]，如：Cols:[{JsonType:integer,FieldIndex:0,FieldType:Integer,FieldSize:0,FieldName:ID,Required:false},{JsonType:string,FieldIndex:1,FieldType:String,FieldSize:100,FieldName:Title,Required:false},{JsonType:variant,FieldIndex:2,FieldType:Blob,FieldSize:0,FieldName:Picture,Required:false}]数据信息以Data做节点，也是一个数组嵌套记录信息：Data:[记录集信息]废话少说，直接上代码：unit uDBJson;interfaceusesSysUtils,Clas