ZJson:TJSONObject;
arrJson:TJSONArray;
subjson:TJSONObject;
ZJson:=TJSONObject(GetJSON('.....Json字符串....'));
//后面json变量的都不能用创建，否则会无法释放内存
//以前用了arrJson:=TJSONArray.Create; 一直有内存释放问题
arrJson:=ZJson.Arrays['setdata'];
subjson:=TJSONObject(arrJson.Items[i]);
sendSJ := SetJSON.AsJSON;//json转string
ZJson.free;//只用释放最高一级
