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