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 messagebox 和 messagedlg用法

Delphi xe8 androdi利用httpclient实现的一个app自动更新组件

Delphi 读取流 image1 stream 加载到image2 timage 对象

Delphi 从记事本导入记录

Delphi 查找某目录下的特定文件

Delphi 截取某个字符之前的字段

Delphi 如何取得系统中的桌面的路径

Delphi 调用exitwindows 关闭系统

Delphi 字符串处理

Delphi 正则表达式tperlregex 详解

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

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