Delphi Sysem.JSON 链式写法
2021-04-04 04:24
标签：substr reader obj ram 生成 分享图片 图片 foo city 链式写法有很多优点：连贯、语意集中、简洁、一气呵成、可读性强。比如要把 3.1415926 中的 59 提取为一个整数：Pi.ToString().Substring(5,2).ToInteger() 轻车熟路的感觉，让人觉得，哇！好帅的写法，牛x。 以前以为只有 TJSONBuilder 才支持链式语法，今天发现 TJSONObject 也支持，比如要生成下面的 JSON 使用 TJSONObject 链式写法，代码如下： Delphi 10.1 新增的一个JSON读写框架 ：Readers and Writers JSON Framework ，可以了解下： 不过，看起来，使用 TJSONBuilder 层次更分明，更优雅。 Delphi Sysem.JSON 链式写法 标签：substr reader obj ram 生成 分享图片 图片 foo city 原文地址：https://www.cnblogs.com/rtcmw/p/9190257.html{
"name": "张三",
"vip": true,
"telephones": [
"13012345678",
"19786543210"
],
"age": 24,
"size": 1.72,
"adresses": [
{
"adress": "foo",
"city": "The wall",
"pc": 57000
},
{
"adress": "foo",
"city": "Winterfell",
"pc": 44000
}
]
}
var
JsonObject:TJSONObject;
begin
JsonObject:= TJSONObject.Create;
JsonObject
.AddPair(‘name‘, TJSONString.Create(‘张三‘))
.AddPair(‘vip‘, TJSONTrue.Create)
.AddPair(‘telephones‘,
TJSONArray.Create
.Add(‘13012345678‘)
.Add(‘19786543210‘)
)
.AddPair(‘age‘, TJSONNumber.Create(24))
.AddPair(‘size‘, TJSONNumber.Create(1.72))
.AddPair(‘adresses‘,
TJSONArray.Create
.Add(
TJSONObject.Create
.AddPair(‘adress‘, ‘foo‘)
.AddPair(‘city‘, ‘The wall‘)
.AddPair(‘pc‘, TJSONNumber.Create(57000))
)
.Add(
TJSONObject.Create
.AddPair(‘adress‘, ‘foo‘)
.AddPair(‘city‘, ‘Winterfell‘)
.AddPair(‘pc‘, TJSONNumber.Create(44000))
)
);
Memo1.Text := TConverters.JsonReformat(JsonObject.ToJSON);
end;
Builder:=TJSONObjectBuilderEx.NewBuilder;
Builder
.BeginObject
.Add(‘name‘,‘张三‘)
.Add(‘vip‘,true)
.BeginArray(‘telephones‘)
.Add(‘13012345678‘)
.Add(‘19786543210‘)
.EndArray
.Add(‘age‘,24)
.Add(‘size‘,1.72)
.BeginArray(‘adresses‘)
.BeginObject
.Add(‘adress‘,‘foo‘)
.Add(‘city‘,‘The wall‘)
.Add(‘pc‘,57000)
.EndObject
.BeginObject
.Add(‘adress‘,‘foo‘)
.Add(‘city‘,‘Winterfell‘)
.Add(‘pc‘,44000)
.EndObject
.EndArray
.EndObject;
Memo1.Text := Builder.ToJSON;
上一篇：下载pywinauto
下一篇：Winform 自定义文本框
文章标题：Delphi Sysem.JSON 链式写法
文章链接：http://soscw.com/index.php/essay/71926.html