数据集转换JSON

procedure TForm1.DataSetToJSON(DataSet:TDataSet);
var
JSONObject: TJSONObject;
JSONArray: TJSONArray;
JSONItem: TJSONObject;
i:integer;
begin
JSONArray:=TJSONArray.Create; //创建JSON数组 //创建后不需要释放free(会自动释放),如果操作释放free动作会报错
while not DataSet.Eof do
begin
JSONItem:=TJSONObject.Create; //创建JSON对象
JSONItem.AddPair('serial',TJSONNumber.Create(DataSet.FieldByName('data1').AsInteger));
JSONItem.AddPair('product_No','编号'+DataSet.FieldByName('data2').AsString);
JSONArray.AddElement( JSONItem);
DataSet.Next;
end;
//将数组添加到顶层对象中
JSONObject:=TJSONObject.Create;//创建JSON对象
try
JSONObject.AddPair('data',JSONArray);
str_json:=JSONObject.ToString;
finally
JSONObject.Free;
end;
end;

posted @   左边江湖右边庙  阅读(5)  评论(0编辑  收藏  举报
努力加载评论中...
点击右上角即可分享
微信分享提示