2022年12月4日 星期日

学习Delphi原生JSON框架（三）TJsonArray

红鱼儿| 博客园_红鱼儿 |17:05:00

基于前面写的内容，我们可以快速读取一个数组的JSON串了，直接上代码： procedure TForm6.Button2Click(Sender: TObject); begin var jsonstr:= '{' + ' "code": 0,' + ' "msg": "Success",' + '

学习Delphi原生JSON框架（二）TJsonArray

红鱼儿| 博客园_红鱼儿 |15:00:00

前面写了如何快速读取一个JSON串，但只是针对简单的类型，如果JSON串中有数组该怎么办呢？ 一、例子代码 先看下面的代码，读取一个学生的各科成绩。 procedure TForm6.Button1Click(Sender: TObject); var jsonstr:string; jv:TJSO