delphi json用法

最近接触到json,开始还有点抵触，用多了感觉蛮好玩的，特别是里面什么都可以放，整形I，数组A，对象O，布尔型B等等，而且delphi用起来也很方便，可以直接放文本，当变量，里面的值也可以随时改变，真的太方便了。取值时，也是一层一层的取，若前面都一样可以用with...do...去掉不要的层级.需要注意的是大小写取值时要区分。用法:uses Superobject, Sperjsondelphi里有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
      B[‘Confidence‘  ] := False;
      S[‘PnConfidence‘] := ‘0‘;
      S[‘Distance‘    ] := ‘‘;
      I[‘MobileNo‘    ] := 13241654113;
      S[‘Time‘        ] := FormatDatetime(‘yyyy-MM-dd HH:mm:ss‘,Now);     // 字符型时间
      S[‘SName‘       ] := ‘‘;
      S[‘Lat‘         ] := ‘‘;
      S[‘Lng‘         ] := ‘‘;
      S[‘ImagePath‘   ] := ‘‘;
      S[‘Addr‘        ] := ‘‘;
    end;
  end;
 memo1.Lines.Add (‘JSON值: ‘ + jo1.AsJSON(True));     // 加True按格式换行显示