使用Delphi 7解析JSON
使用Delphi 7解析JSON
提问于 2016-06-16 04:45:25
我有一个JSON文件，需要对其进行解析以提取一些值。
示例如下所示：
[
{
"period": "2016-06-07 - 2016-06-14",
"range": "2016-06-07..2016-06-14",
"items": [
{
"region_name": "Canterbury/Otago",
"region_id": 12,
"average_cover": 2099,
"average_growth": 16,
"reading_count": 3
},
{
"region_name": "Southland",
"region_id": 14,
"average_cover": 2068,
"average_growth": 3,
"reading_count": 1
},
{
"region_name": "Wairarapa \u0026 Hawkes Bay",
"region_id": 10,
"average_cover": 2195,
"average_growth": 20,
"reading_count": 2
}
]
},
{
"period": "2016-05-31 - 2016-06-07",
"range": "2016-05-31..2016-06-07",
"items": [
{
"region_name": "Canterbury/Otago",
"region_id": 12,
"average_cover": 2126,
"average_growth": 17,
"reading_count": 5
},
{
"region_name": "Southland",
"region_id": 14,
"average_cover": 2181,
"average_growth": 10,
"reading_count": 2
}
]
},
{
"period": "2016-05-24 - 2016-05-31",
"range": "2016-05-24..2016-05-31",
"items": [
{
"region_name": "Canterbury/Otago",
"region_id": 12,
"average_cover": 2139,
"average_growth": 28,
"reading_count": 6
},
{
"region_name": "Central Plateau",
"region_id": 6,
"average_cover": 2400,
"average_growth": 38,
"reading_count": 1
},
{
"region_name": "Wairarapa \u0026 Hawkes Bay",
"region_id": 10,
"average_cover": 2254,
"average_growth": 27,
"reading_count": 2
}
]
},
{
"period": "2016-05-18 - 2016-05-25",
"range": "2016-05-18..2016-05-25",
"items": [
{
"region_name": "Canterbury/Otago",
"region_id": 12,
"average_cover": 2183,
"average_growth": 39,
"reading_count": 6
},
{
"region_name": "Manawatu",
"region_id": 9,
"average_cover": 2315,
"average_growth": 42,
"reading_count": 1
},
{
"region_name": "Wairarapa \u0026 Hawkes Bay",
"region_id": 10,
"average_cover": 2228,
"average_growth": 29,
"reading_count": 2
}
]
},
{
"period": "2016-05-10 - 2016-05-17",
"range": "2016-05-10..2016-05-17",
"items": [
{
"region_name": "Canterbury/Otago",
"region_id": 12,
"average_cover": 2251,
"average_growth": 40,
"reading_count": 8
},
{
"region_name": "Otago",
"region_id": 13,
"average_cover": 2595,
"average_growth": 26,
"reading_count": 1
},
{
"region_name": "Southland",
"region_id": 14,
"average_cover": 2526,
"average_growth": 49,
"reading_count": 2
},
{
"region_name": "Waikato",
"region_id": 4,
"average_cover": 2484,
"average_growth": 60,
"reading_count": 1
},
{
"region_name": "Wairarapa \u0026 Hawkes Bay",
"region_id": 10,
"average_cover": 2201,
"average_growth": 34,
"reading_count": 2
}
]
}
]我要提取的项是region_id、average_cover和average_growth。
我已经成功地从第一个items数组中提取了值，但是我的样例JSON文件包含4个items数组，并且我似乎只能从第一个items元素中提取值。
我一直在使用ulkJSON.pas库，我的Delphi代码如下所示，将值发送到表单上的TMemo：
var
js: TlkJSONBase;
Items: TlkJSONbase;
I: Integer;
lHTTP: TIdHTTP;
sJSON: String;
begin
sJSON := // as per sample JSON text in question
js := TlkJSON.ParseText(sJSON);
Items := js.Field['items'];
for I := 0 to Pred(Items.Count) do begin
Memo1.Lines.Add(VarToStr(Items.Child[I].Field['region_id'].Value));
Memo1.Lines.Add(VarToStr(Items.Child[I].Field['average_cover'].Value));
Memo1.Lines.Add(VarToStr(Items.Child[I].Field['average_growth'].Value));
end;
end;回答 1
Stack Overflow用户
发布于 2016-06-16 06:31:41
您没有将顶级数组考虑在内。此代码适用于所示的JSON：
var
sJSON: String;
js, Items, Item: TlkJSONBase;
I, J: Integer;
begin
sJSON := // as per sample JSON text in question
js := TlkJSON.ParseText(sJSON);
for I := 0 to Pred(js.Count) do
begin
Items := js.Child[I].Field['items'];
for J := 0 to Pred(Items.Count) do begin
Item := Items.Child[J];
Memo1.Lines.Add(VarToStr(Item.Field['region_id'].Value));
Memo1.Lines.Add(VarToStr(Item.Field['average_cover'].Value));
Memo1.Lines.Add(VarToStr(Item.Field['average_growth'].Value));
end;
end;
end;页面原文内容由Stack Overflow提供。腾讯云小微IT领域专用引擎提供翻译支持
原文链接：
https://stackoverflow.com/questions/37845434
复制相关文章
相似问题
腾讯云开发者
Copyright © 2013 - 2026 Tencent Cloud. All Rights Reserved. 腾讯云 版权所有
深圳市腾讯计算机系统有限公司 ICP备案/许可证号：粤B2-20090059 
粤公网安备44030502008569号
腾讯云计算（北京）有限责任公司 京ICP证150476号 | 京ICP备11018762号