摘要:
来自 蓝颜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... 阅读全文
摘要:
function ComponentToStr(AComponent: TComponent): string;var BinStream: TMemoryStream; StrStream: TStringStream; s: string;begin BinStream := TMemoryStream.Create; try StrStream := TStringStream.Create(s); try BinStream.WriteComponent(AComponent); BinStream.Seek(0, soFromBeginnin... 阅读全文