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;