JSON 之 SuperObject(11): TSuperTableString、TSuperAvlEntry

通过 ISuperObject.AsObject 可获取一个 TSuperTableString 对象.

TSuperTableString 的常用属性: count、GetNames、GetValues


varjo: ISuperObject;jts: TSuperTableString;
beginjo := SO('{A:1, B:2, C:3, D:{x:4, y:5, z:6}}');jts := jo.AsObject;ShowMessage(IntToStr(jts.count));    // 4ShowMessage(jts.GetNames.AsString);  // ["D","C","B","A"]ShowMessage(jts.GetValues.AsString); // [{"z":6,"y":5,"x":4},3,2,1]jts := jo['D'].AsObject;ShowMessage(IntToStr(jts.count));    // 3ShowMessage(jts.GetNames.AsString);  // ["z","y","x"]ShowMessage(jts.GetValues.AsString); // [6,5,4]
end;


JSON 本质就是一个二叉树(SuperObject 支持 32 层深度, 足够了);

二叉树的每个节点主要表示一个 Name:Value; 其中的 Name 是字符串, Value 可能是个字符串、整数、数组或另一个 ISuperObject, 所以 Value 的类型只能是 ISuperObject.

描述这个节点的类是 TSuperAvlEntry, 我们可以从一个 TSuperTableString 中枚举出当前层及的每个 TSuperAvlEntry.


varjo, io: ISuperObject;item: TSuperAvlEntry;
beginjo := SO('{A:1, B:2, C:3, D:{x:4, y:5, z:6}}');{从 TSuperTableString(这里是用 jo.AsObject 获取)中枚举 TSuperAvlEntry}Memo1.Clear;for item in jo.AsObject doMemo1.Lines.Add(Format('Name: %s; Value: %s', [item.Name, item.Value.AsString]));{直接从 ISuperObject 中枚举 "子ISuperObject"}Memo1.Lines.Add(EmptyStr);for io in jo doMemo1.Lines.Add(Format('Value: %s', [io.AsString]));
end;


上面的遍历都没有深入下去, 要彻底深入地遍历需要写回调函数.

下面写了两个回调函数, 第一个没有考虑数组中的对象:


uses SuperObject;//使用回调的遍历过程之一: 没考虑数组中的对象
procedure Proc1(jo: ISuperObject; var List: TStrings);
varitem: TSuperAvlEntry;
beginfor item in jo.AsObject doif item.Value.DataType = stObject thenProc1(item.Value, List) {如果是对象就回调}else {不是对象就添加到列表}List.Add(Format('%s : %s', [item.Name, item.Value.AsString])); 
end;//使用回调的遍历过程之二:
procedure Proc2(jo: ISuperObject; var List: TStrings);
vari: Integer;item: TSuperAvlEntry;
beginfor item in jo.AsObject dobeginif item.Value.DataType = stObject thenProc2(item.Value, List) {如果是对象就回调}else begin {不是对象就添加到列表}List.Add(Format('%s : %s', [item.Name, item.Value.AsString]));if item.Value.DataType = stArray then begin {如果是数组, 看看里面是不是有对象}for i := 0 to item.Value.AsArray.Length - 1 doif item.Value.AsArray[i].DataType = stObject thenProc2(item.Value.AsArray[i], List); {如果是对象就再回调}end;end;end;
end;//调用测试
procedure TForm1.Button1Click(Sender: TObject);
varjo: ISuperObject;List: TStrings;
beginjo := SO('{A:1, B:2, C:3, D:[4, 5, {X:6}, {Y:[7,8,{m:9}]}]}');List := TStringList.Create;Proc1(jo, List);ShowMessage(List.Text);List.Clear;Proc2(jo, List);ShowMessage(List.Text);List.Free;
end;

转载于:https://www.cnblogs.com/cpprun/p/4787979.html

本文来自互联网用户投稿,该文观点仅代表作者本人,不代表本站立场。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如若转载,请注明出处:http://www.mzph.cn/news/405093.shtml

如若内容造成侵权/违法违规/事实不符,请联系多彩编程网进行投诉反馈email:809451989@qq.com,一经查实,立即删除!

相关文章

linux重定向到文件permission denied

1. 执行重定向命令报权限错误,如下: sudo nohup ${obj} >${log_file} 2>&1 &./autoRun.sh: line 23: /home/netmeas/log-20200414-164657.txt: Permission denied2.分析原因 sudo 给了obj超级执行权限,但是重定向到log_file没…

[react] 在React中怎么阻止事件的默认行为?

[react] 在React中怎么阻止事件的默认行为? event.preventDefault();阻止浏览器默认行为, 例如标签不跳转 event.stopPropagation();阻止冒泡; 例如上级点击事件不生效 个人简介 我是歌谣,欢迎和大家一起交流前后端知识。放弃很…

构建第一个Flex的Mobile APP

Flash Builder 4.5已经支持直接创建Flex Mobile Project,写一个最简单的例子 1、建立工程 右击--》新建--》输入工程名“MyFirstMobileApp” 点击“Next”进入下一步 修改初始化的标题文本信息为“Home”(默认为HomeView),勾选“G…

由于可能不会将凭据发送到远程计算机,因此将不会进行连接。若要获得协助,请与您的系统管理员联系。...

windows10系统下,在通过VPN连接到堡垒机的时候,出现“由于可能不会将凭据发送到远程计算机,因此将不会进行连接。若要获得协助,请与您的系统管理员联系。” 以下是解决方法: 方法一.组策略 请按照下列步骤操作&#xf…

Linux多线程开发-线程同步-互斥锁pthread_mutex_t

1、互斥锁 同一时刻只允许一个线程对临界区进行访问。POSIX库中用类型pthread_mutex_t来定义互斥锁&#xff0c;类型在pthreadtypes.h中定义。 2、如何声明一个互斥锁 #include <pthread.h>pthread_mutex_t mutex; 3、如何初始化一个互斥锁 //静态初始化互斥锁 pthr…

[react] React的事件和普通的HTML事件有什么不同

[react] React的事件和普通的HTML事件有什么不同 区别&#xff1a; 对于事件名称命名方式&#xff0c;原生事件为全小写&#xff0c;react 事件采用小驼峰对于事件函数处理语法&#xff0c;原生事件为字符串&#xff0c;react 事件为函数react 事件不能采用 return false 的方…

cmb

if (this.cmbMonitorLevelPollutionSource.Items.Count 0) { this.cmbMonitorLevelPollutionSource.Items.Add(new ComboBoxItem() { Content "国控", Tag "00" }); this.cmbMonitorLevelPollutionSource.Ite…

C++面试宝典2011版

From: http://blog.csdn.net/jingxuewang110/article/details/6789557/ 1.new、delete、malloc、free关系 delete会调用对象的析构函数,和new对应free只会释放内存&#xff0c;new调用构造函数。malloc与free是C/C语言的标准库函数&#xff0c;new/delete是C的运算符。它们都可…

hdu1466(dp)

Problem Description平面上有n条直线&#xff0c;且无三线共点&#xff0c;问这些直线能有多少种不同交点数。比如,如果n2,则可能的交点数量为0(平行)或者1(不平行)。Input输入数据包含多个测试实例,每个测试实例占一行,每行包含一个正整数n&#xff08;n<20&#xff09;,n表…

[react] 你最喜欢React的哪一个特性(说一个就好)

[react] 你最喜欢React的哪一个特性&#xff08;说一个就好&#xff09; virtual domHOC 个人简介 我是歌谣&#xff0c;欢迎和大家一起交流前后端知识。放弃很容易&#xff0c; 但坚持一定很酷。欢迎大家一起讨论 主目录 与歌谣一起通关前端面试题

Linux多线程开发-线程同步-读写锁pthread_rwlock_t

1、读写锁概念 对资源的访问抽象为两种类型&#xff0c;即独占和共享。独占资源具有排他性&#xff0c;例如写操作。共享资源可以同时由多个线程访问&#xff0c;不对该资源执行写操作。针对资源的读和写操作分别加锁&#xff0c;写操作加锁与互斥锁相同&#xff0c;但读操作加…

Wireshark抓包工具使用教程以及常用抓包规则

From: http://fangxin.blog.51cto.com/1125131/735178 Wireshark是一个非常好用的抓包工具&#xff0c;当我们遇到一些和网络相关的问题时&#xff0c;可以通过这个工具进行分析&#xff0c;不过要说明的是&#xff0c;这只是一个工具&#xff0c;用法是非常灵活的&#xff0c;…

SSH整合--1

简单说明&#xff1a;整个整合过程使用mysql数据库、Myeclipse 8.5&#xff0c;框架使用struts2.1.6,hibernate3.x,spring2.5 功能&#xff1a;实现简单的用户登录 0. 简单的流程 1. Resister.jsp <% page language"java" import"java.util.*" pageEnco…

[react] 在React中什么时候使用箭头函数更方便呢?

[react] 在React中什么时候使用箭头函数更方便呢&#xff1f; 合成事件当中使用箭头函数比较方便 注意点在于当事件作为props传递给子组件时&#xff0c;会造成额外的性能损耗 个人简介 我是歌谣&#xff0c;欢迎和大家一起交流前后端知识。放弃很容易&#xff0c; 但坚持一…

poj3750

简单题 View Code #include <iostream>#include <cstdio>#include <cstdlib>#include <cstring>usingnamespacestd;#definemaxn 100intn, w, s;charname[maxn][100];boolout[maxn];intmain(){//freopen("t.txt", "r", stdin);sca…

Linux多线程开发-线程同步-条件变量pthread_cond_t

1、条件变量的概念 一个线程A的执行需要另一个线程B来唤醒&#xff0c;否则A挂起等待。线程B可以产生线程A继续执行的信号。条件变量常用在共享数据状态变化的场景中&#xff0c;例如&#xff1a;生产则和消费者问题。POSIX线程库提供了条件变量这种同步机制。使用条件变量需要…

FreeSWITCH安装报错“You must install libyuv-dev to build mod_fsv”的解决方案

昨天下午安装FreeSWITCH时遇到该问题时&#xff0c;整了一个下午都没解决&#xff0c;也走了许多弯路。如果直接通过yum安装libyuv-devel时&#xff0c;会报错说找不到该安装包。后来又通过FreeSWITCH官网的网上聊天&#xff0c;找FreeSWITCH的工作人员要到了libyuv-devel的安装…

linux内核模块常见问题

From: http://debug-sai.blogbus.com/logs/45569599.html 一 在编译内核模块时&#xff0c;出现 make[1]: 正在进入目录 /usr/src/linux-2.6.28 ERROR: Kernel configuration is invalid. include/linux/autoconf.h or include/config/auto.conf are missing. …

[react] 使用PropTypes和Flow有什么区别?

[react] 使用PropTypes和Flow有什么区别&#xff1f; Flow 是一个针对react项目所有 JavaScript 代码的静态类型检测器&#xff0c;需要单独添加依赖并手动运行PropTypes是针对组件级别的类型检测 个人简介 我是歌谣&#xff0c;欢迎和大家一起交流前后端知识。放弃很容易&am…

EF架构~了解一下,ADO.NET Entity Framework

回到目录 以下文章部分来自百度百科 背景 长久以来&#xff0c;程序设计师和数据库总是保持着一种微妙的关系&#xff0c;在商用应用程序中&#xff0c;数据库一定是不可或缺的元件&#xff0c;这让程序设计师一定要为了连接与访问数据库而去 学习 SQL 指令&#xff0c;因此在信…