delphi，superobject，Json格式读写

uses
      superobject;

--------------------------------------  

jt,jt_input,jo_output: ISuperObject; //【json对象】
jt_arr:TSuperArray;//【json数组对象】
age:string;
--------------------------------------
jt.S['sign_no'] := '14008';    //string类型的值  赋值                                                 
jt.o['input'] := jt_input;        //json节点  赋值
jt.I['sign_no'] := 12;            //integer类型的值 赋值  
jt_arr:=jo_output.O['insuinfo'].AsArray;  //取json数组 
age:=jo_output.S['age'];                        //取字符串