红鱼儿

2022年12月4日

学习Delphi原生JSON框架(三)TJsonArray

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

posted @ 2022-12-04 17:59 红鱼儿 阅读(1127) 评论(1) 推荐(0) 编辑
学习Delphi原生JSON框架(二)TJsonArray

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

posted @ 2022-12-04 15:07 红鱼儿 阅读(1637) 评论(0) 推荐(0) 编辑