本文整理自网络,侵删。
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�⒆执�传入到windows目前窗口cursor所在位置
Delphi使用spcomm串口通信 串口号大于10出错的解决办法
更多相关阅读请进入《Delphi》频道 >>