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

varI:Integer;CurrentObject:TJSONObject;FieldName:string;Pair:TJSONPair;functionCreateJSONValueForVariant(constaValue:Variant):TJSONValue;begincaseVarType(aValue)ofvarInteger:Result:=TJSONNumber.Create(Integer(aVal