delphi xe-system.json
Delphi XE10有一个对JSON处理的单元,在你需要使用JSON的单元里面引入"System.json",随后你就可以用Delphi自己的json处理类了。
普通解析
实例1:
jsonString ='{
"_id" : "",
"dev" : "",
"type" : "PHYSICAL",
"math" : {
"consts" : {
"CT" : 1,
"PT" : 1
},
"exprs" : {}
},
"name" : "炼铁#除尘高压室"
}' procedure TFrm__dev.Act_F__editExecute(Sender: TObject);
var
DevObject,Mathobj,Contstsobj: TJSONObject; // JSON类
Smath,Scontsts,sCT,sPT,sDEV:string;
begin
DevObject:=TJSONObject.ParseJSONValue(jsonString ) as TJSONObject; //从字符串生成JSON
Smath:=DevObject.GetValue('math').ToString;
Mathobj:=TJSONObject.ParseJSONValue(Smath) as TJSONObject;
Scontsts:=Mathobj.GetValue('consts').ToString;
Contstsobj:=TJSONObject.ParseJSONValue(Scontsts) as TJSONObject; sDEV:=DevObject.getValue('dev');//得到DEV
sCT := Contstsobj.GetValue('CT').ToString; //得到CT
sPT := Contstsobj.GetValue('PT').ToString; Frm__devAdd.ShowModal;
end;
实例2:带数组的解析
jsonString :=‘ { "_id" : "测试", "dev" : "测试",
"vdev" : {
"params" : {
"args" : [
"A",
"B"
]
}
} } ’ argsArr:TJSONArray; sID:= DBGrid1.DataSource.DataSet.FieldByName('_id').Value ;
sTYPE:= DBGrid1.DataSource.DataSet.FieldByName('type').Value ;
dSelector:=JSON(['_id',sID]);
d:=FMongoWire.Get(devCol,dSelector);
DevObject:=TJSONObject.ParseJSONValue(d.ToString) as TJSONObject; //从字符串生成JSON Svdev:=DevObject.GetValue('vdev').ToString; //vdev
vdevobj:=TJSONObject.ParseJSONValue(Svdev) as TJSONObject;
Sparams:=vdevobj.GetValue('params').ToString; //params
paramsobj:=TJSONObject.ParseJSONValue(Sparams) as TJSONObject;
argsArr:=TJSONArray(paramsobj.GetValue('args')); //args数组
for i:= to argsArr.Size - do
begin
if(i<>)then sarg:=sarg+',';
sarg:=sarg+argsArr.items[i].value;
end;
内嵌循环解析
DevObject:=TJSONObject.ParseJSONValue(d1.ToString) as TJSONObject; //从字符串生成JSON
Svdev:=DevObject.GetValue('vdev').ToString;
Vdevobj:=TJSONObject.ParseJSONValue(Svdev) as TJSONObject;
Schannel:= Vdevobj.GetValue('channels').ToString;
Channelobj:=TJSONObject.ParseJSONValue(Schannel) as TJSONObject;
sch:= Channelobj.GetValue(sChs).ToString;
Chobj:=TJSONObject.ParseJSONValue(sch) as TJSONObject;
sinput:= Chobj.GetValue('inputs').ToString;
Inputobj:= TJSONObject.ParseJSONValue(sinput) as TJSONObject; for I := to Inputobj.Count- do //Inputobj.Count得到inputs内嵌个数。
begin
sin:=Inputobj.Get(i).JsonValue.ToString;//得到对象的值 Inputobj.Get(i).JsonString.toString;//得到对象Key Inobj:= TJSONObject.ParseJSONValue(sin) as TJSONObject; if(Inobj.GetValue('val').Value='VALUE') then
begin
item := Frm__ChsAdd.ListView1.Items.Add;//listview增加一行
item.Caption := Inputobj.Get(i).JsonString.Value;//Inputobj.Get(i).JsonString.Value得到inputs下的对象名称
item.SubItems.Add(Inobj.GetValue('val').Value);//遍历对象名下的数值
item.SubItems.Add(Inobj.GetValue('dev').Value);
item.SubItems.Add(Inobj.GetValue('ch').Value);
end
else if(Inobj.GetValue('val').Value='CONSTANTS') then
begin
item := Frm__ChsAdd.ListView1.Items.Add;//listview增加一行
item.Caption := Inputobj.Get(i).JsonString.Value;
item.SubItems.Add(Inobj.GetValue('val').Value);
item.SubItems.Add('');
item.SubItems.Add('');
item.SubItems.Add(Inobj.GetValue('constant').Value);
end;
end;
数组里面嵌套多个对象
dqueryold:=FMongoWire.Get(chsCol,conditionold);
OldwlchObject:=TJSONObject.ParseJSONValue(dqueryold.ToString) as TJSONObject; //从字符串生成JSON
soldvdev:=OldwlchObject.GetValue('vdev').ToString; //vdev
oldwlvdevobj:=TJSONObject.ParseJSONValue(soldvdev) as TJSONObject;
srefs:=oldwlvdevobj.GetValue('refs').ToString; //refs
oldwlrefsobj:=TJSONObject.ParseJSONValue(srefs) as TJSONObject;
olddevArr:=TJSONArray(oldwlrefsobj.GetValue(sDev)); //args数组
for k:= to olddevArr.Size - do
begin
devsnum:=olddevArr.items[k].ToString;//第几个对象
temp := TJSONObject.ParseJSONValue(devsnum) as TJSONObject;设为对象
if((temp.GetValue('arg').Value=oldinput) and (temp.GetValue('ch').Value=sCh))then
begin end;
属性
个数 :
1)property Count: Integer read GetCount;//得到最外层数据个数
例子:num:=DevObject.count; 结果为5
这样有规律的数据 可以通过 循环得到
方法://判断指定的串值是否存在
1)function TJSONValue.TryGetValue<T>(const APath: string; out AValue: T): Boolean;/
上面实例运行查询时报错,是因为有些math不存在,如何检查一个指定的串值是否存在,
如果'math'不存在,JSONObject.GetValue方法是要产生异常的,那么,该如何检查math是否存在呢?
先声明一个
var
jsonvalue: Tjsonvalue;
if DevObject.TryGetValue('math', jsonvalue) then
begin
Smath:=DevObject.GetValue('math').ToString;
Mathobj:=TJSONObject.ParseJSONValue(Smath) as TJSONObject;
Scontsts:=Mathobj.GetValue('consts').ToString;
Contstsobj:=TJSONObject.ParseJSONValue(Scontsts) as TJSONObject;
sCT:= Contstsobj.GetValue('CT').ToString;
sPT:= Contstsobj.GetValue('PT').ToString;
end;
三、记录知识 :
用toString得到值在界面显示会有双引号
edt_expr.Text :=Svdevobj.GetValue('expr').Value;//得到不带双引号的值
edt_expr.Text :=Svdevobj.GetValue('expr').toString;//得到带引号的值
is TJSONArray先判断是不是数组。
delphi xe-system.json的更多相关文章
- Delphi 10 Seattle plus 新特性——System.JSON.Builders
{ 全能中间件 —— 简单.高效.稳定.安全的三层中间件 1.支持 多账套多数据库,包括SQLite, MySQL, SQL Server, Oracle, PostgreSQL, DB2, SQL ...
- Delphi 10.2 JSON与对象/结构体序列化性能提高100多倍
今天在盒子闲逛,无意中看到有人说XE7自带的Json对象序列化很慢,帖子在这里:http://bbs.2ccc.com/topic.asp?topicid=464378;经过测试的确如此. 但 ...
- Delphi XE中使用dbExpress连接MySQL数据库疑难问题解决(对三层的例子配置有帮助)
Delphi IDE中包含一个Data Explorer的组件,如下图所示: 该组件基于dbExpress(包含TSQLConnection.TSQLDataSet.TSQLQuery.TSQLSto ...
- DELPHI XE10,JSON 生成和解析,再利用INDYHTTP控件POST
Delphi XE10,Json 生成和解析,再利用indyhttp控件Post 年09月20日 :: 阅读数: --不多说,直接上代码 procedure TFrmMain.Brand; var J ...
- Xe7 System.Json解析数据格式
一.Demo一 解析嵌套数组 Json数据 {"code":1,"msg":"","data":{"Grade ...
- delphi c++builder JSON 生成与解析 例子
json,System.JSON,REST.JSON JSON有两种数据结构,对象和数组. 对象在js中表示为“{}”括起来的内容,数据结构为 {key:value,key:value,...} 数组 ...
- delphi 实体类 JSON 数组
delphi 实体类 与JSON转换,序列化 TJson REST.JSON.pas TJson.JsonToObjectTJson.ObjectToJsonString JsonEncode O ...
- Delphi XE中使用dbExpress连接MySQL数据库疑难问题解决
Delphi IDE中包含一个Data Explorer的组件,如下图所示: 该组件基于dbExpress(包含TSQLConnection.TSQLDataSet.TSQLQuery.TSQLSto ...
- System.Json 使用注意
在xamarin中对json字符串进行解析,使用System.Json时出现怪问题: json-string = { "ret" : "OK" } 使用如下代码 ...
- delphi 2010与delphi XE破解版的冲突
在系统中同时安装了Dephi 2010LITE版与Delphi XE lite后,总是会有一个有问题 是因为两者都是读取C:\ProgramData\Embarcadero目录下的license文件, ...
随机推荐
- Lintcode---验证二叉查找树
给定一个二叉树,判断它是否是合法的二叉查找树(BST) 一棵BST定义为: 节点的左子树中的值要严格小于该节点的值. 节点的右子树中的值要严格大于该节点的值. 左右子树也必须是二叉查找树. 一个节点的 ...
- Shell 基础笔记
1-22-shell脚本的基础 本节所讲内容: shell 基本语法 变量 第1章 什么是SHELL?.. 2 1.1 shell编程.. 3 第2章 shell变量及运用.. ...
- 关于Qt半自动内存管理的思考及实验
一时兴起,对Qt感了兴趣,决心想要研究一下. 按网上资料配好环境,Windows 7 64bit + Qt 5.3.1 + VS2010. 根据<C++ GUI Qt4 编程>这本书,写出 ...
- deepin linux 下C开发环境配置
# deepin linux 下C开发环境配置 ## 前言-----------------------------deepin操作系统商店默认提供了 eclipse for c\c++但是系统没有提 ...
- Unix系统编程(二)open的练习
在上一篇中学习了一下open函数的基本用法,这里就要练习一下.计算机就是要实践嘛. 用open创建一个文件 #include <sys/types.h> #include <sys/ ...
- linux—jdk 安装步骤
1. 查看现有版本 java -version 2. 查看jdk的具体版本 rpm –qa| grep jdk rpm –qa| grep gcj 3. ...
- 为什么 MongoDB 连接数被用满了?
使用 MongoDB 时,可能会遇到因为 mongod 连接数用满了,导致客户端无法连接的问题.mongod的最大连接数通过 net.maxIncomingConnections 指定,默认值为100 ...
- html 和 javascript 的相关执行顺序
1.dom 树和 js 的加载顺序 http://blog.csdn.net/jdsxzhao/article/details/44646463 2. jquery中各个事件执行顺序如下: https ...
- html 简单的预缓存
切图生成html,加鼠标响应,预缓存 <style> .d4{ width:190; height:170; background-image: url(images/未标题-1_09-1 ...
- 读取Properties文件六种方法
1.使用java.util.Properties类的load()方法 示例: InputStream in = lnew BufferedInputStream(new FileInputStream ...