Delphi中使用ISuperObject解析Json数据（二）

原文章名称：delphi使用json（ISuperObject，TSuperArray）

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

作者：bshoes
链接：https://www.jianshu.com/p/d65236d141df
来源：简书
著作权归作者所有。商业转载请联系作者获得授权，非商业转载请注明出处。