\t\tJSon SuperObject 研究

     SuperObject是delphi不多的著名开源JSON开源类库，其作者的作品还有大名鼎鼎的DSPACK等许多著名的开源VCL类库。

     至于SuperObject的详细用法，万一老师已经很描述很清楚。最新版的1.2.1，添加了currency属性，也支持D2010，包括最新的RTTI。

     SuperObject看起来很容易上手，但有一些概念必须理解清楚，比如数组的创建和使用、空值如何赋值等。以下就讲讲SuperObject一些特殊的用法：

1、JSON数组。创建数组有两种方式，一个是 TSuperObject.Create(stArray)，另外一种是用接口方式 SA([]);

最常用的是后面一种。数组JSON对象转换AsArray方法，然后使用ADD或其length等方法或属性；数组加入JSON对象，JSON对象必须以O的属性支持赋值；范例如下：

//这个范例是创建列的元信息

var
sj,aj,sj2:ISuperObject;
i:Integer;
Fieldtyp,JsonTyp:string;
List:TStringList;
begin
sj := SO();//创建JSON对象
aj := SA([]);//创建数组

   for i := 0 to DataSet.FieldCount - 1 do
    begin
      sj2 := SO();//创建列的信息，数组里的子对象
      //GetFieldTypeInfo(DataSet.Fields[i],Fieldtyp,JsonTyp);//获取字段信息，以及对应的JSON字段信息，可以忽略不看
     
      sj2.S[cstFieldName] := DataSet.Fields[i].FieldName;
      sj2.S[cstFieldType] := Fieldtyp;
      sj2.S[cstJsonType] := JsonTyp;
      sj2.I[cstFieldSize] := DataSet.Fields[i].Size;
      sj2.B[cstRequired] := DataSet.Fields[i].Required;
      sj2.I[cstFieldIndex] := DataSet.Fields[i].Index;
      aj.AsArray.Add(sj2);// 数组转换，必须用 AsArray
      List.Add(DataSet.Fields[i].FieldName+'='+JsonTyp);
    end;
    sj.O['Cols'] := aj;//数组添加到JSON对象，必须以对象方式

end;

2、如何处理空值NULL。空值是强类型数据下一种未赋值或未知的值。下面是SuperObject 的数据类型，看看字面意思也就大概明白。 TSuperType = (
    stNull,
    stBoolean,
    stDouble,
    stCurrency,
    stInt,
    stObject,
    stArray,
    stString
    ,stMethod );

    SO()接口方法有好多Overload方法，其中

function SO(const value: Variant): ISuperObject; overload

就包含了空值的处理。同样，空值也是一种属性对象，因此，我们必须这样赋值：

SJ.O['Name'] := SO(NULL); 在使用之前，最好先判断 ISuperObject 值 的 datatype是否为 stNull

3、从文件获取JSON对象。ISuperObject不能直接从文件导入JSON信息，必须借助实体类TSuperObject。

var
sj:ISuperObject;
begin
    sj := TSuperObject.ParseFile('Json.txt');

end;