我们先要引用superobject.pas
写入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'];//小学生
