Delphi xe10对json的解析应用

最新推荐文章于 2026-03-24 10:27:34 发布

原创最新推荐文章于 2026-03-24 10:27:34 发布 · 1.7w 阅读

12 ·

本内容遵循CC 4.0 BY-SA版权协议

Delphi 专栏收录该内容

25 篇文章

订阅专栏

本文介绍如何使用Delphi中的TJSONObject和TJSONArray类解析JSON数据，包括声明变量、赋值、遍历对象名称及值、获取指定对象内值以及遍历JSON数组等内容。

Json语句

{"code":100,"state":"true","data":["hero","npc","pet"]}

引用单元

System.JSON

类型说明

//申明变量
Root:TJSONObject;
//赋值
Root:= TJSONObject.ParseJSONValue(Trim(JsonStr)) as TJSONObject;

获取Json对象数量

Root.Count

遍历对象名称及数值

for i:=0 to Root.count-1 do
begin
   memo1.lines.add(Root.Get(i).JsonString.toString + ' = ' + Root.Get(i).JsonValue.ToString);
end;

结果显示

"code" = 100
"state" = "true"
"data" = {"id":10,"name":"test"}

获取指定对象内数值

Root.GetValue('data').ToString

获取数组对象

申明json数组变量
Arr:TJSONArray;
Arr:=TJSONArray(Root.GetValue('data'));
遍历json数组
for i:=0 to Arr.Size - 1 do
begin
  memo1.lines.add(Arr.items[i].value);
end;

注意事项

Json解析无法判断数据内是否存在指定对象名，所以在吃不准是否存在指定对象的时候还是使用get遍历的方式读取数据比较稳妥。