前面写了如何快速读取一个JSON串,但只是针对简单的类型,如果JSON串中有数组该怎么办呢?
一、例子代码
先看下面的代码,读取一个学生的各科成绩。
procedure TForm6.Button1Click(Sender: TObject); var jsonstr:string; jv:TJSONValue; js:TJSONString; ja:TJSONArray; jo:TJSONObject; I: Integer; begin jsonstr:= '{' + ' "person": {' + ' "sex": "男",' + ' "name": "王小二",' + ' "score": [{' + ' "语文": 120' + ' },' + ' {' + ' "数学": 89' + ' },' + ' {' + ' "英语": 100' + ' }' + ' ]' + ' }' + '}'; jv := TJSONValue.ParseJSONValue(jsonstr); //将JSON串转换为JSON对象,即TJSONValue对象 if jv <> nil then begin Log('姓名:' + jv.GetValue<TJSONValue>('person.name').Value); //直接读取节点值 Log('性别:' + jv.GetValue<TJSONValue>('person.sex').Value); Log('成绩'); if jv.TryGetValue<TJSONArray>('person.score', ja) then //读取JSON对象中的数组对象 begin for I := 0 to ja.Count - 1 do //循环数组对象 begin jo := ja.A[I] as TJSONObject; //取数组元素对象 var pair:= jo.Pairs[0]; //取出Pair对象 var s1 := pair.JsonString.value; //读取Pair中键名 var s2 := pair.JsonValue.Value; //读取Pair中值 //var s2:=jo.Values[s1].Value; //也可以根据Pair的键名读取键值 Log(s1 + '=' + s2); end; end; Log(jv.ToString); //输出:{"person":{"sex":"男","name":"王小二","score":[{"语文":120},{"数学":89},{"英语":100}]}} log(jv.ToJSON); //输出:{"person":{"sex":"\u7537","name":"\u738B\u5C0F\u4E8C","score":[{"\u8BED\u6587":120},{"\u6570\u5B66":89},{"\u82F1\u8BED":100}]}} end; end;
运行后输出的结果:
![](/i/l/?n=23&i=blog/367202/202212/367202-20221204150654066-139816568.png)
标签:原生,读取,Delphi,person,JSON,var,jv,Log From: https://www.cnblogs.com/kinglandsoft/p/16938548.html