zoukankan      html  css  js  c++  java
  • SuperObject使用

    SuperObject

    SuperObject第三方控件包,试用了下并编写了个DEMO,发现还是蛮强大。废话 少说,看看下面的代码就知道其强大:
    1、JSON原始数据
    {
      "name": "张三", /* 注释 */
      "age": 33,
      "sex": true,
      "weight": 123.456,
      "tel": ["86-1111111", "86-2222222"],
      "addresses":{"address":"A省B市", "pc":"100001"},
      "children": [
        {
          "name": "张继",
          "age": "22",
          "sex": true
        },
        {
          "name": "张承",
          "age": "11",
          "sex": false
        }
      ]
    }

    2、获取某个域内容,比如名称,代码如下:
    var
      jo: ISuperObject;
    begin
      jo := TSuperObject.ParseString(PWideChar(mmo.Text),false);
      ShowMessage('name:'+jo['name'].AsString);
      //也可以采用以下方式实现
      //jo := SO(PWideChar(mmo.Text));
      //ShowMessage('message:'+jo['message'].AsString);
    end;

    3、获取嵌套对象,比如地址和邮编
    var
      jo: ISuperObject;
    begin
      jo := TSuperObject.ParseString(PWideChar(mmo.Text),false);
      ShowMessage('地址:'+jo['addresses.address'].AsString+',邮编:'+jo['addresses.pc'].AsString);
    end;

    4、解析子记录
    var
      i: integer;
      jo: ISuperObject;
      ja: TSuperArray;
    begin
      jo := TSuperObject.ParseString(PWideChar(mmo.Text),false);
      ShowMessage('记录:'+jo['children'].AsString);

      ja := jo['children'].AsArray;
      for i:=0 to ja.Length-1 do
      ShowMessage(ja['name'].AsString);
    end;

  • 相关阅读:
    SharePoint 2010 新体验3 文档集
    Firebird 修改表名
    C++Builder XE7 up1 简单测试
    Firbird 将可 null 的列更新为 not null
    用delphiXE7 dbExpress Framework提供的功能获取数据表信息
    Linux的基本命令总结
    IOS 隐藏时间条
    最大流 ZQUOJ 10181 && POJ 1273
    最大二分匹配 匈牙利算法模板&&POJ 1469 COURSES
    新加坡第四天下午
  • 原文地址:https://www.cnblogs.com/honeynm/p/4721462.html
Copyright © 2011-2022 走看看