通过 SuperObject 生成 json string

(*

{

  "name": "Henri Gourvest", /* this is a comment */

  "vip": true,

  "telephones": ["000000000", "111111111111"],

  "age": 33,

  "size": 1.83,

  "adresses": [

    {

      "adress": "blabla",

      "city": "Metz",

      "pc": 57000

    },

    {

      "adress": "blabla",

      "city": "Nantes",

      "pc": 44000

    }

  ]

}

*)



procedure SaveJson;

var

  json, json_sub: ISuperObject;

begin

  json := SO;



  json.S['name'] := 'Henri Gourvest';

  json.B['vip'] := TRUE;

  json.O['telephones'] := SA([]);

  json.A['telephones'].S[0] := '000000000';

  json.A['telephones'].S[1] := '111111111111';

  json.I['age'] := 33;

  json.D['size'] := 1.83;



  json.O['addresses'] := SA([]);



  json_sub := SO;

  json_sub.S['address'] := 'blabla';

  json_sub.S['city'] := 'Metz';

  json_sub.I['pc'] := 57000;

  json.A['addresses'].Add(json_sub);



  json_sub.S['address'] := 'blabla';

  json_sub.S['city'] := 'Nantes';

  json_sub.I['pc'] := 44000;

  json.A['addresses'].Add(json_sub);



  json.SaveTo('C:\json_out.txt');



  json := nil;

  json_sub := nil;

end;