json 3
转自:https://www.cnblogs.com/kinglandsoft/p/16934314.html
基于前面写的内容,我们可以快速读取一个数组的JSON串了,直接上代码:
procedure TForm6.Button2Click(Sender: TObject); begin var jsonstr:= '{' + ' "code": 0,' + ' "msg": "Success",' + ' "check": true,' + ' "datas": [{' + ' "id": 1,' + ' "name": "测试1",' + ' "age": 10' + ' },' + ' {' + ' "id": 2,' + ' "name": "测试2",' + ' "age": 10' + ' },' + ' {' + ' "id": 3,' + ' "name": "测试3",' + ' "age": 10' + ' },' + ' {' + ' "id": 4,' + ' "name": "测试4",' + ' "age": 10' + ' },' + ' {' + ' "id": 5,' + ' "name": "测试5",' + ' "age": 10' + ' }' + ' ],' + ' "time": "2020-12-03 11:19:08"' + '}'; var jv := TJSONValue.ParseJSONValue(jsonstr); Log('code=' + jv.GetValue<TJSONValue>('code').Value); Log('msg=' + jv.GetValue<TJSONValue>('msg').Value); Log('check=' + jv.GetValue<TJSONBool>('check').Value); Log('time=' + jv.GetValue<TJSONValue>('time').Value); var ja := jv.GetValue<TJSONArray>('datas'); var jva: TJSONValue; for jva in ja do begin Log('id=' + jva.GetValue<TJSONValue>('id').Value); Log('name=' + jva.GetValue<TJSONValue>('name').Value); Log('age=' + jva.GetValue<TJSONValue>('age').Value); end; end;
输出结果:
![](https://img2023.cnblogs.com/blog/367202/202212/367202-20221204175831918-530909538.png)
通过上面的代码,其核心是基于TJSONValue及TJSONArray对象,就解析了这个JSON串!!
如果我们将jva转换成一个TJSONObject对象,那么基于TJSONObject对象的GetValue方法,可以改写这样:
var ja := jv.GetValue<TJSONArray>('datas'); var jva: TJSONValue; for jva in ja do begin var jo:=jva as TJSONObject; Log('id=' + jo.GetValue('id').Value); Log('name=' + jo.GetValue('name').Value); Log('age=' + jo.GetValue('age').Value); end;
这里的jo.GetValue返回TJsonValue对象。喜欢哪种写法,看你了。