delphi JSONObject 助手 uSZHN_JSON，SuperObject语法

Helper实现的类似SuperObject的写法，使用这个方法，需要引入单元uSZHN_JSON.pas  (访问密码: 168168)

procedure TForm1.Button1Click(Sender: TObject);
var
  jo : TJSONObject;
begin
  jo := TJSONObject.Create;
  try
    jo.S['name'] := '曹雪芹';
    jo.I['age'] := 40;
    jo.B['married'] := True;
    jo.A['books'] := TJSONArray.Create;
    jo.A['books'].Add('四大名著').Add('红楼梦');
 
    jo.O['organization'] := TJSONObject.Create;
    jo.O['organization'].S['oname'] := 'csdn.net';
    jo.O['organization'].I['oyear'] := 20;
    {
      jo.O['organization'] := TJSONObject.Create.AddPair('oname','csdn.net');
      jo.O['organization'].I['oyear'] := 20;
    }
    Memo1.Text := JSON_Format(jo.ToString);
  finally
    jo.Free;  //需要释放
  end;
end;