本文整理自网络,侵删。
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的webbrowser改造,对网页中alter等对话框的改造方法
Delphi stringgrid 实例2:1、获取 stringgrid 的行数、列数; 2、给单元赋值
更多相关阅读请进入《Delphi》频道 >>