本文整理自网络,侵删。
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"}
获取指定对象内数值[delphi] view plain copy print?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遍历的方式读取数据比较稳妥。
相关阅读 >>
更多相关阅读请进入《Delphi》频道 >>