使用xsuperobject来解析json文件

最新推荐文章于 2025-05-10 00:34:55 发布

winfredzhang

最新推荐文章于 2025-05-10 00:34:55 发布

阅读量1.2k

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi rio 文章标签： xsuperobject json

本文链接：https://blog.youkuaiyun.com/winniezhang/article/details/106223695

delphi rio 专栏收录该内容

89 篇文章

订阅专栏

本文介绍如何使用xSuperObject库在Delphi中解析复杂的JSON数据。通过实例演示了如何读取JSON对象和数组中的数据，修改JSON数组元素，并创建新的JSON对象和数组。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

下载xsuperobject相关单元文件。

https://github.com/onryldz/x-superobject

首先将下载好的pas文档复制到项目文件夹下。

uses
  XSuperJSON, XSuperObject;

1、放置memo+button组件到窗体上。

2、设置memo的lines为如下。

{
	"o": {
		"1234567890": {
			"last use date": "2010-10-17T01:23:20.000",
			"create date": "2010-10-17T01:23:20.000",
			"name": "iPhone 8s"
		}
	},
	"Index": 0,
	"Data": {
		"Index2": 1
	},
	"a": [{
		"last use date": "2010-10-17T01:23:20.000",
		"create date": "2010-11-17T01:23:20.000",
		"name": "iPhone 8s",
		"arr": [1, 2, 3, "test1"]
	}, {
		"message": "hello"
	}]
}

3、编写button的click事件后执行代码。

var
  X: ISuperObject;
  NewJSon: ISuperObject;
  NewArray: ISuperArray;
begin

  X := SO(Memo1.Text);
  ShowMessage( X['o."1234567890"."last use date"'].AsString );
  ShowMessage( X['a[Index]."create date"'].AsString );
  ShowMessage( X['a[Data.Index2].message'].AsString );
  X['a[0].arr'].AsArray.Add('test1');
 
  NewJSON := X['{a: a[Index], b: a[Data.Index2].message, c: o."1234567890".name, d: 4, e: a[0].arr[2], f: " :) "}'].AsObject;
  NewArray := X['[a[Index], a[Data.Index2].message, Data.Index2, Index, 1, "1", "test"]'].AsArray;
  memo1.Lines.Add(x.AsJSON())//将x作为json格式显示在memo组件中。
end;

结果。