我們先要引用superobject.pas
寫入JSON
var? jo,jt,Va:ISuperObject; JsonTxt:string;//申明變量
//json嵌套寫入
?jo:=SO();? jt:=SO();
? jo.S['Name']:='小學生';//字符型? ? 多數(shù)時候全部使用字符型
? jo.I['Age']:=10;//整型
? jt.O['student']:=jo;
JsonTxt:=jt.AsJSon(False,False);//獲取寫入的json內容'{"student":{"Name":"小學生","Age":"10"}}'
///json數(shù)組嵌套寫入
? 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'];//小學生
