至于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;
json转换对象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('');
end;

版权声明:本站内容均来自互联网,仅供演示用,请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198,我们将在24小时内删除。