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