Delphi DataSet转JSon （使用SuperObject）

Delphi中将TDataSet转换为JSon字符串。

with ATM.LoadDataSet() do
  begin
  if IsEmpty then
    begin
      LogObj.WriteLog('未查询到该视图名称下该时间段内的上传数据，视图名称：'+ AViewname + '开始时间：'+ AStartdate + '结束时间：'+ AEnddate);
      exit
    end;
  while not Eof do

    begin
      for I := 0 to Fieldcount-1 do
      begin
        
        Item.S[Fields[I].FieldName]:=Fields[I].Asstring; //QuotedStr(Fields[I].FieldName)
      end;
      ja.Add(Item);
      next;
    end;
  end;