2013年12月17日

DataSet Json 转化
摘要： 来自 蓝颜2756215016function DataSetToJson(ADataSet: TClientDataSet; All: Boolean): ISuperObject;var i: Integer; json: ISuperObject; f: TField; ws: WideString;begin if ADataSet.State in [dsEdit,dsInsert] then ADataSet.Post; if All then begin Result := TSuperObject.Create(stArray); ADataSet.F... 阅读全文
posted @ 2013-12-17 11:27 867511789 阅读(321) 评论(0) 推荐(0)

导航