(* { "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;