摘要：
基于前面写的内容，我们可以快速读取一个数组的JSON串了，直接上代码： procedure TForm6.Button2Click(Sender: TObject); begin var jsonstr:= '{' + ' "code": 0,' + ' "msg": "Success",' + ' 阅读全文
摘要：
转自：https://www.cnblogs.com/kinglandsoft/p/16934314.html 前面写了如何快速读取一个JSON串，但只是针对简单的类型，如果JSON串中有数组该怎么办呢？ 一、例子代码 先看下面的代码，读取一个学生的各科成绩。 procedure TForm6.Bu 阅读全文
摘要：
转自：https://www.cnblogs.com/kinglandsoft/p/16934314.html 基于前面写的内容，我们可以快速读取一个数组的JSON串了，直接上代码： procedure TForm6.Button2Click(Sender: TObject); begin var 阅读全文
摘要：
转自：https://www.cnblogs.com/kinglandsoft/p/16934314.html 一、前言 Delphi自带了json支持，引用System.json，你就可以处理json，读写json格式的内容都是被支持的。发展了几个版本，无论性能及稳定性都已经成熟，我不喜欢引用更多 阅读全文
摘要：
use data.DBJson,system.JSON procedure TForm18.Button2Click(Sender: TObject);var cV: TDatasetToJSONBridge; jo: Tjsonobject;begin cV := TDatasetToJSONBr 阅读全文