• 通过 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;
  • 相关阅读:
    maven_常用命令
    tomcat_server.xml常用配置
    tomcat线程池原理
    Tomcat处理HTTP请求原理&线程池
    javaweb-javaScript(一)
    javaweb-html快速入门
    javaweb-css
    javaweb-单元测试与注解
    javaweb-文件的上传下载
    javaweb-jsp开发模式+JSON插件
  • 原文地址:https://www.cnblogs.com/starluck/p/4066430.html
Copyright © 2020-2023  润新知