我对JSON不太了解,手头上有一个项目需要我解析JSON并在ListView中显示一些内容。问题是我读到的文档都是关于JSON对象包含JSON数组的,而我的情况涉及处理嵌套的对象。简而言之,这是摘要:我正在使用带有DBXJSON的Delphi XE2。我向服务器发送一些值,它回复一个看起来像这样的JSON对象:
{
"products": {
"Men's Sneakers": {
"instock": false,
"size": "423",
"manufacturer": "Adidas",
"lastcheck": "20120529"
},
"Purse": {
"instock": true,
"size": "not applicable",
"manufacturer": "Prada",
"lastcheck": "20120528"
},
"Men's Hood": {
"instock": false,
"size": "M",
"manufacturer": "Generic",
"lastcheck": "20120529"
}
},
"total": 41,
"available": 30
}
我的目标是将每个项(如钱包)解析并添加为列表视图中的标题,以及一个子项(制造商)。我创建了一个使用JSON字符串作为参数的过程,创建了JSON对象,但不知道如何进一步解析嵌套对象。
procedure TForm1.ParseString(const AString: string);
var
json : TJSONObject;
jPair : TJSONPair;
jValue : TJSONValue;
jcValue : TJSONValue;
l,i : Integer;
begin
json := TJSONObject.ParseJSONValue(TEncoding.ASCII.GetBytes(AString),0) as TJSONObject;
try
//get the pair to evaluate in this case the index is 1
jPair := json.Get(1);
{further process the nested objects and adding them to the listview}
finally
json.Free;
end;
end;
非常感谢任何建议。我已经花了很多时间尝试在Delphi中理解JSON的细节,但没有成功。
谢谢, sphynx