学习Delphi原生JSON框架（二）

前面写了如何快速读取一个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;

运行后输出的结果：