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 xe 安卓开发黑屏的另一种解决办法

Delphi 判断文件是否被占用

Delphi 修改窗口标题

Delphi的webbrowser改造，对网页中alter等对话框的改造方法

Delphi产生不重复随机数的算法

用Delphi写console控制台程序

Delphi获取进程占用内存

Delphi 通过窗口特定标题锁定窗口

Delphi stringgrid 实例2：1、获取 stringgrid 的行数、列数; 2、给单元赋值

delph hash类

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

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