写入JSON

var jo,jt,Va:ISuperObject; JsonTxt:string;//申明变量

//json嵌套写入

jo:=SO(); jt:=SO();

jo.S['Name']:='小学生';//字符型多数时候全部使用字符型

jo.I['Age']:=10;//整型

jt.O['student']:=jo;

JsonTxt:=jt.AsJSon(False,False);//获取写入的json内容'{"student":{"Name":"小学生","Age":"10"}}'

///json数组嵌套写入

jt:=SO();Va:=SA([]);

jo:=SO();

jo.S['Name']:='小学生';

jo.I['Age']:=10;

Va.AsArray.Add(jo);

jo:=SO();

jo.S['Name']:='大学生';

jo.I['Age']:=25;

Va.AsArray.Add(jo);

jt.O['student']:=Va;

JsonTxt:=jt.AsJSon(False,False);//获取写入的json内容{"student":[{"Age":10,"Name":"小学生"},{"Age":25,"Name":"大学生"}]}

读取JSON

var jo,jt:ISuperObject; JsonTxt:string;//申明变量

//读取JSON

JsonTxt:='{"student":{"Name":"小学生","Age":"25"}}';

jt := SO(JsonTxt);

jt['student'].AsString;//{"Name":"小学生","Age":"25"}

jt.O['student'].S['Name'] ;//小学生

//读取JSONArray

va : TSuperArray;//申明变量

JsonTxt:='{"student":[{"Age":10,"Name":"小学生"},{"Age":25,"Name":"大学生"}]}';

jt := SO(JsonTxt);

va:=jt['student'].AsArray;

jo:=Va[0];

jo.S['Name'];//小学生

©著作权归作者所有,转载或内容合作请联系作者
【社区内容提示】社区部分内容疑似由AI辅助生成，浏览时请结合常识与多方信息审慎甄别。
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。