delphi json用法

用法:uses Superobject, Sperjson
delphi里有json单元。
procedure TForm2.SuperObjectClick(Sender: TObject);
var
  str: string;
  jo1: ISuperObject;
begin
  jo1 := SO('{}');// 初始化
  with jo1.O['recieve'] do
  begin
    S['status'] := 'OK';
    S['module'] := 'Windows';
    S['act'   ] := 'enter';
  with jo1.O['parm'] do begin //这里用with，下面所有的元素都可以减一层，就不用每一行 写jo1.O['parm'] .S[…]
      I['CardID'      ] := 4;              // I: integer
      S['Park'        ] := '';             // S: stirng
      S['PN'          ] := 'asd';
      B['PNR'         ] := True;           // B: BOOL
    end;
  end;
 memo1.Lines.Add ('JSON值: ' + jo1.AsJSON(True));     // 加True按格式换行显示

若还想在jo1上多加一层嵌套，则只需再定义个jo2，

jo2 := SO('{}');

jo2.O['data']:= jo1;

(最近接触到json,开始还有点抵触，用多了感觉蛮好玩的，
特别是里面什么都可以放，整形I，数组A，对象O，布尔型B等等，
而且delphi用起来也很方便，可以直接放文本，当变量，里面的值也可以随时改变，真的太方便了。
取值时，也是一层一层的取，若前面都一样可以用with...do...去掉不要的层级.
需要注意的是大小写取值时要区分。)