通过 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;
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】凌霞软件回馈社区,博客园 & 1Panel & Halo 联合会员上线
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】博客园社区专享云产品让利特惠,阿里云新客6.5折上折
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步