本文整理自网络,侵删。
function GetDataSetAsJSON(DataSet: TDataSet): TJSONObject;var f: TField; o: TJSOnObject; a: TJSONArray;begin a := TJSONArray.Create; DataSet.Active := True; DataSet.First; while not DataSet.EOF do begin o := TJSOnObject.Create; for f in DataSet.Fields do o.AddPair(f.FieldName, VarToStr(f.Value)); a.AddElement(o); DataSet.Next; end; DataSet.Active := False; Result := TJSONObject.Create; Result.AddPair(DataSet.Name, a);end;
相关阅读 >>
Delphi xe6 firemonkey移动应用程序获取android设备屏幕信息
Delphi示例代码 android,ios,osx,windows,linux,html5
更多相关阅读请进入《Delphi》频道 >>