delphi 数据集转换json对象

本文整理自网络，侵删。

 
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 创建并调用 dll

Delphi tnethttpclient的用法

Delphi 如果判断一个网络文件是否存在？

Delphi 使用webbrowser控件获取含框架的网页的完整html代码

Delphi打开关闭光驱

Delphi mediaplayer1 播放avi 视频

Delphi rewrite 以可写方式打开文件

Delphi varchar和nvarchar区别

setwindowpos改变窗口的位置与状态

Delphi中combobox.items.indexof用法

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi 数据集转换json对象