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

with ATM.LoadDataSet() dobeginif IsEmpty thenbeginLogObj.WriteLog('未查询到该视图名称下该时间段内的上传数据，视图名称：'+ AViewname + '开始时间：'+ AStartdate + '结束时间：'+ AEnddate);exitend;while not Eof dobeginfor I := 0 to Fieldcount-1 dobeginItem.S[Fields[I].FieldName]:=Fields[I].Asstring; //QuotedStr(Fields[I].FieldName)end;ja.Add(Item);next;end;end;