delphi xe-system.json

Posted 2020-10-06 michellexiaoqi

Delphi XE10有一个对JSON处理的单元，在你需要使用JSON的单元里面引入"System.json"，随后你就可以用Delphi自己的json处理类了。

jsonString =‘{
　　"_id" : "4",
　　"dev" : "4",
　　"type" : "PHYSICAL",
　　"math" : {
　　　　"consts" : {
　　　　　　"CT" : 1,
　　　　　　"PT" : 1
　　　　},
　　"exprs" : {}
　　},
"name" : "炼铁#4除尘高压室"
}‘

procedure TFrm_0201_dev.Act_F_020102_editExecute(Sender: TObject);
var
DevObject,Mathobj,Contstsobj: TJSONObject; // JSON类
Smath,Scontsts,sCT,sPT:string;
begin
if lv_dev.Selected=nil then raise Exception.Create(‘请选择设备‘);

dSelector:=JSON([‘dev‘,lv_dev.Selected.Caption]);
d:=FMongoWire.Get(devCol,dSelector);

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;

sCT := Contstsobj.GetValue(‘CT‘).ToString; //得到CT
sPT := Contstsobj.GetValue(‘PT‘).ToString;

Frm_020101_devAdd.ShowModal;
end;

属性

property Count: Integer read GetCount;//得到最外层数据个数

例子：num:=DevObject.count;  结果为5

这样有规律的数据 可以通过 循环得到