09 2023 档案

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

点击右上角即可分享
微信分享提示