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研究之驱动开发篇（六）--利用section与用户模式程

Delphi 热键声明和使用

Delphi system 提供的编译期函数

Delphi 学习 sql 语句 - select(8): 分组条件

Delphi gethref 获取<a href="链接"></a>中href的数据

Delphi 保存hotkey1.hotkey值

dll 的静态调用实例代码

Delphi版文件夹加密软件源代码

Delphi spcomm 调试串口解决总是在程序断开的时候才发送指令的问题

Delphi wm_copydata 用法

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

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