Delphi读写操作JSON字符串时，需引用一个superobject.pas文件。
var
jo,jt:ISuperObject;
begin
jo:=SO();
jt:=SO();
jo.S['姓名']:='小王';
jo.I['年龄']:=25;
jo.S['性别']:='男';
jt.O['人员']:=jo;
ShowMessage('原JSON字符串为：'+jt.AsString);
ShowMessage('人员中姓名的JSON值：'+jt.O['人员'].S['姓名']);//获取指定JSON值
end;
2021-12-13 21:30:32
203KB
1
实现Delphi下Json解析，支持DelphiXe10,官网下载的最高支持到Xe7。
2021-11-27 12:12:54
73KB
1
DELPHI开发HTTP用到的superobject，实现JSON格式，HTTP POST json 格式需要
2021-11-12 17:00:12
87KB
1
SuperObject Delphi 的 JSON 操作类改造 - 关于属性顺序的问题。（原创资源）
Delphi 的 ISuperObject 属性顺序为随机。但是很多时候，是需要按加入顺序进行读取。我也看了网上很多人有类似需求。也有人问过原作者，作者答复为：JSON协议规定为无序。看了我真是无语。
也看过网上一些人自己的修改，但是修改后有两个问题：
1. 性能急剧下降。原作者是用二叉树对性能做了极大的优化。但是网上修改的方法性能不行。
2. 属性数大于 32 时会出错。（原来用的是二叉树，修改后部分算法未修改，导致此问题）。
我采用的是重写遍历器的方法，和原版性能接近。
* 执行 500*500 数据的节点变更后，性能和原版差别不太大。
*
* 原始性能 0.280 秒
* 旧的稳定改版性能 15.774 秒
* 新的稳定改版性能 0.535 秒
*
* 性能是原版的 1.9 倍左右。而之前将二叉树变为链表的方法，导致性能变为 56 分之一。
* 温涛，于 2018-10-26。邮箱 delphi2006@163.com
2021-11-05 08:22:33
221KB
1
superobject 1.25 ------------------ SuperObject提供了两个类库文件SuperObject.pas，superxmlparser.pas，其中SuperObject.pas就是用于操作json数据，而superxmlparser.pas用与从XML数据中解析出json数据。
2021-09-24 06:15:31
35KB
1
实测可用，用Delphi生成json文件。
创建对象: TSuperObject.Create(stObject)
创建json数据对象: TSuperObject.Create(stArray)
mainjson.S['factory'] := 'Z00CQJ_001'
2021-09-23 18:54:23
34KB
1