delphi的开源json库：superobject，用法简介

var
    j, a: ISuperObject; //不能是TSuperObject，尽管有TSuperObject这个类，但这里就是要这样无厘头。

begin
j:=TSuperObject.Create(stObject); //创建一个json对象，如果参数是stArray，j就是一个json数组，参数还可以是其它的变量类型，比如字符串，数值之类的，看起来很强大，但是如果参数是一个描述了json的字符串的话，你会得到一个错误。如果想从文本加载，用j:=SO(json文本);

j.I['数字']:=123;  //就等于 {"数字": 123} ，类似的，I还可以变成S，B，C之类的，以表示字符串，布尔型，货币型。
j.S['{字符串}']:="值"; //这是个bug：带有花括号时没有任何效果。

a:=TSuperObject.Create(stArray); //创建一个json数组a
a.I['']:=111;  //表示给a数组添加一个111元素。注意[]中的值为''，在数组中其[]的语义进行了颠覆性的改变。
a.I[2]:="s"; //第3个元素值为"s"，嗯，[]在superobject的用法还真多
j['arr']:=a; //把数组a添加进j,其key名为arr

showmessage( j.toJson() );  //查看j的json文本

j:=nil;  //不能写j.Free

end;

易用性還不錯