uses     superobject;
 
procedure  TForm1 . FormCreate(Sender: TObject);
var  aJson: ISuperObject;
aSuperArray: TSuperArray;
    i: Integer ;
begin
   {1、赋初值}   aJson:=SO( '{"zoo":"涂磊动物园","animals":[{"name":"猴子","year":"12"},{"name":"老虎","year":"132"}]}' );
   {2、读值前，一定要先判断是否存在}   if    aJson[ 'animals' ]<>  nil   then
        showmessage(  aJson[ 'animals' ].AsString );
 
   {3、多值的读取}  aSuperArray:= aJson[ 'animals' ].AsArray;
//多值 "animals":[{"name":"猴子","year":"12"},
  //               {"name":"老虎","year":"132"}]
    for  i:= 0  to   aSuperArray . Length- 1  do
  memo1 . Lines . Add(aSuperArray[i][ 'name' ].AsString+aSuperArray[i][ 'year' ].AsString);
 
    aJson:=SO( '{"code":0,"data":{"area":"华东","area_id":"300000","city":"宜春市","city_id":"360900","country":"中国","country_id":"CN","county":"","county_id":"","ip":"59.62.201.110","isp":"电信","isp_id":"100017","region":"江西省","region_id":"360000"}}' );
   {4、深层级的访问}   if    aJson[ 'data.country' ]<>  nil   then
    showmessage(  aJson[ 'data.country' ].AsString );     // 中国
end ;
GitHub 加速计划 / js / json
41.72 K
6.61 K
下载
适用于现代 C++ 的 JSON。
最近提交(Master分支：1 个月前 )
960b763e 3 个月前
8c391e04 6 个月前
Logo
GitCode 开源社区

旨在为数千万中国开发者提供一个无缝且高效的云端环境，以支持学习、使用和贡献开源项目。

更多推荐

[转载]在Windows环境下安装GNU Radio

转自：在Windows环境下安装GNURadio_恐弱智_新浪博客GNU Radio是用Python开发的，大部分开源的工程能够在Linux环境下运行良好，而Windows下却运行的很勉强，而且安装配置都很复杂。GNU Radio算是个例外了，不光提供了Windows的二进制安装，还有比较详细的说明。我是Python小白，所以折腾了好久才弄好，特意记录下来，免得以后再装还折腾。GNU Radio的

avatar GitCode 开源社区

centOS 8 使用dnf安装Docker

DNF是什么？CentOS 8使用YUM软件包管理器版本v4.0.4。现在，该版本使用DNF(已删除YUM)。DNF是软件包管理器。它会在Linux发行版上安装，执行更新并删除软件包。使用DNF安装Docker跳过具有损坏依赖性的程序包一个有效的解决方案是使您的CentOS 8系统使用以下--nobest命令安装最符合条件的版本：sudo dnf install docker...

avatar GitCode 开源社区

定时同步数据库表(mysql+linux+crontab)

sync.sh里面的参数需要改变，ip/username/password/database/tablesync.sh#!/bin/sh# Please change the IP and password of the data source db.# Then change the table name.filename=/home/nington/db/$(date +%Y-%m

avatar GitCode 开源社区