您的位置：首页 > 编程语言 > Delphi

delphi 取json中数组的值（ISuperArray）

2015-10-29 11:27 495 查看

{
"action": "******",
"data": [
{
"Info1": {
"ID": "1",
"Name": "张三",
},
"Info2": [
......
]
},
"Info2": {
"ID": "2",
"Name": "李四",
},
"Info2": [
......
]
},
"Info3": {
"ID": "3",
"Name": "王二",
},
"Info3": [
......
]
},
]
}

要取出张三：

ShowMessage(jo_data.A['data'].O[0].O['Info1'].S['Name']);

以此类推

如下json：

[
[0,'192.168.11.18',[
[1,500,[['A-001','100,100,50,81',2],['A-002','100,100,50,81',2]]],
[2,500,[['A-002','100,100,50,81',2],['A-003','100,100,50,81',2]]],
]
],
[2,'192.168.11.18',[
[1,500,[['C-020','100,100,50,81',2],['A-001','100,100,50,81',2]]],
[2,500,[['C-021','100,100,50,81',2],['A-001','100,100,50,81',2]]],
]
]
]

取值：（Log为memo1.lines.add()）

Log(ja_data.A[0].I[0].ToString); // 0
Log(ja_data.A[0].S[1]);          // 192.168.11.18
Log(ja_data.A[0].A[2].A[0].I[0].ToString);      //1
Log(ja_data.A[0].A[2].A[0].I[1].ToString);      // 500
Log(ja_data.A[0].A[2].A[0].A[2].A[0].S[0]);     // A-001
Log(ja_data.A[0].A[2].A[0].A[2].A[1].S[0]);     // A-002

内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理

标签：

相关文章推荐

新的分享

章节导航