摘要:
来自 蓝颜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... 阅读全文