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 获取一个文件夹下的一级目录

Delphi中message消息的使用方法

Delphi 开发中遇到的dll问题思考及解决方法

Delphi�⒆执�传入到windows目前窗口cursor所在位置

Delphi 在长文件名和短文件名之间转换

Delphi获取星期函数

Delphi使用spcomm串口通信 串口号大于10出错的解决办法

Delphi unigui日志的控制

Delphi idhttp批量上传图片

Delphi转换长文件名函数 getshortname

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...