用法: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按格式换行显示