procedureTForm1.DataSetToJSON(DataSet:TDataSet);varJSONObject:TJSONObject;JSONArray:TJSONArray;JSONItem:TJSONObject;i:integer;beginJSONArray:=TJSONArray.Create;//创建JSON数组//创建后不需要释放free(会自动释放)，如果操作释放free动作会报错whilenot