• 通过 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;
  • 相关阅读:
    ListView点击事件
    ListView优化:
    自定义ListView
    ListView简单使用
    mysql中show processlist过滤和杀死线程
    自定义控件
    yum配置中driver-class-name: com.mysql.jdbc.Driver报错
    CSS+HTML
    maven的配置
    Model、ModelMap、ModelAndView的作用及区别
  • 原文地址:https://www.cnblogs.com/starluck/p/4066430.html
Copyright © 2020-2023  润新知