XSuperObject是适用于FileMonkey平台的JSON解析组件,能够在Android,IOS,MACOS,WINDOWS等多个平台使用

点击下载

Sample JSON

{
"name":"Onur YILDIZ",
"vip":true,
"telephones":["000000000","111111111111"],
"age":24,
"size":1.72,
"adresses":[
{
"adress":"blabla",
"city":"Antalya",
"pc":7160
},
{
"adress":"blabla",
"city":"Adana",
"pc":1170
}
]
}

Delphi Code

var
X:ISuperObject;
begin
X :=TSuperObject.Create('{}');
X.S['name']:='Onur YILDIZ';
X.B['vip']:=true;
with X.A['telephones']do
begin
Add('');
Add('');
end;
X.I['age']:=;
X.F['size']:=1.72;
with X.A['adresses'].O[]{AutoCreate}do
begin
S['adress']:='blabla';
S['city']:='Antalya';
I['pc']:=;
end;
// or
X.A['adresses'].O[].S['adress']:='blabla';
X.A['adresses'].O[].S['city']:='Adana';
X.A['adresses'].O[].I['pc']:=;

Super Expression

const
JSON ='{ "o": { '+
' "1234567890": {'+
' "last use date": "2010-10-17T01:23:20",'+
' "create date": "2010-10-17T01:23:20",'+
' "name": "iPhone 8s"'+
' }'+
' },'+
' "Index": 0, '+
' "Data": {"Index2": 1}, '+
' "a": [{'+
' "last use date": "2010-10-17T01:23:20",'+
' "create date": "2010-11-17T01:23:20",'+
' "name": "iPhone 8s",'+
' "arr": [1,2,3] '+
' }, '+
' {'+
' message: "hello"'+
' }]'+
'}'; var
X:ISuperObject;
NewJSon:ISuperObject;
NewArray:ISuperArray;
begin
X := SO(JSON);
ShowMessage( X['o."1234567890"."last use date"'].AsString);
ShowMessage( X['a[Index]."create date"'].AsString);
ShowMessage( X['a[Data.Index2].message'].AsString);
X['a[0].arr'].AsArray.Add('test1');
// -----
NewJSON:= X['{a: a[Index], b: a[Data.Index2].message, c: o."1234567890".name, d: 4, e: a[0].arr[2], f: " :) "}'].AsObject;
NewArray:= X['[a[Index], a[Data.Index2].message, Data.Index2, Index, 1, "1", "test"]'].AsArray;
end;

Variant

var
X:ISuperObject;
begin
X :=TSuperObject.Create;
X.V['A']:=;
X.V['B']:='';
X.V['C']:=1.3;
X.V['D']:=False;
X.V['E']:=Null;
Memo1.Lines.Add(X.AsJSON);
end;

Output

{"A":1,"B":"2","C":1.3,"D":false,"E":null}

Sample 2

const
JSN ='{ '+
' "adresses": [ '+
' { '+
' "adress": "blabla", '+
' "city": "Antalya", '+
' "pc": 7160 '+
' },'+
' { '+
' "adress": "blabla", '+
' "city": "Adana", '+
' "pc": 1170 '+
' } '+
' ] '+
'}';
var
X,Obj:ISuperObject;
J:Integer;
begin
X :=TSuperObject.Create(JSN);
with X.A['adresses']do
for J := to Lenght-1do
begin
Obj:= O[J];
Obj.First;
whilenotObj.EoFdo
begin
Memo1.Lines.Add(Obj.CurrentKey+' = '+VarToStr(Obj.CurrentValue.AsVariant));
Obj.Next;
end;
Memo1.Lines.Add('------');
end;
end;

OR (Enumerator)

var
X:ISuperObject;
AMember,
OMember:IMember;
begin
X :=TSuperObject.Create(JSN); forAMemberin X.A['adresses']do
begin
forOMemberinAMember.AsObjectdo
Memo1.Lines.Add(OMember.Name+' = '+OMember.ToString); Memo1.Lines.Add('------');
end;

Output

adress = blabla
city =Antalya
pc =7160
------
adress = blabla
city =Adana
pc =1170

Marshalling

type

  TTestSet=(ttA, ttB, ttC);

  TTestSets=set of TTestSet;

  TSubRec= record
A:Integer;
B:String;
end; TSubObj=class
A:Integer;
B:Integer;
end; TTest=class// Field, Property Support
private
FB:String;
FSubObj:TSubObj;
FSubRec:TSubRec;
FTestSets:TTestSets;
public
A:Integer;
B:TTestSet;
C:Boolean;
property D:String read FB write FB;
property E:TSubRec read FSubRec write FSubRec;
property F:TSubObj read FSubObj write FSubObj;
property G:TTestSets read FTestSets write FTestSets;
end; TTestRec= record // Only Field Support
A:Integer;
B:TTestSet;
C:Boolean;
D:String;
E:TSubRec;
F:TSubObj;
G:TTestSets;
end; implementation
... var
Parse:TTest;// For Class;
S:String;
begin
Parse:=TTest.FromJSON('{"A": 1, "B": 0, "C": true, "D": "Hello", "E":{"A": 3, "B": "Delphi"}, "F": {"A": 4, "B": 5}, "G": [0,2]}');
S :=Parse.AsJSON;
end; ...
var
Parse:TTestRec;// For Record;
S:String;
begin
Parse:=TSuperRecord<TTestRec>.FromJSON('{"A": 1, "B": 0, "C": true, "D": "Hello", "E":{"A": 3, "B": "Delphi"}, "F": {"A": 4, "B": 5}, "G": [0,2]}');
S :=TSuperRecord<TTestRec>.AsJSON(Parse);
end;
  

适用于Firemonkey的Json解析对象XsuperObject使用方法介绍的更多相关文章

  1. IOS中Json解析的四种方法

    作为一种轻量级的数据交换格式,json正在逐步取代xml,成为网络数据的通用格式. 有的json代码格式比较混乱,可以使用此“http://www.bejson.com/”网站来进行JSON格式化校验 ...

  2. JSON 解析的两种方法

    今天帮朋友看了下JSON解析结果············· eval解析JSON中的注意点 在JS中将JSON的字符串解析成JSON数据格式,一般有两种方式: 1.一种为使用eval()函数. 2. ...

  3. 【转】IOS中Json解析的四种方法

    原文网址:http://blog.csdn.net/enuola/article/details/7903632 作为一种轻量级的数据交换格式,json正在逐步取代xml,成为网络数据的通用格式. 有 ...

  4. iOS json解析的几种方法 NSJSONSerialization,JSONKit,SBJson ,TouchJson

    相关的第三方类库大家可以去github上下载 1.NSJSONSerialization 具体代码如下 : - (void)viewDidLoad { [super viewDidLoad]; NSD ...

  5. 在.NET中使用Newtonsoft.Json转换,读取,写入的方法介绍

    全局引用 using Newtonsoft.Json; using Newtonsoft.Json.Converters; //把Json字符串反序列化为对象 目标对象 = JavaScriptCon ...

  6. Flutter实体与JSON解析的一种方法

    vs code作为编辑器 1. 首先,json对象与字符串的转换是使用json.encode和json.decode的,需要导入import 'dart:convert'; 这里主要的自然不是这个,而 ...

  7. 04_关于元数据,ResultSetMetaData对象以及API方法介绍

     ResultSetMetaData对象 元数据,可以理解为数据的数据 Jdbc中的元数据是指数据库.表.列的定义信息. ResultSetMetaData对象表示结果集ResultSet对象的元 ...

  8. GeoJson的生成与解析,JSON解析,Java读写geojson,geotools读取shp文件,Geotools中Geometry对象与GeoJson的相互转换

    GeoJson的生成与解析 一.wkt格式的geometry转成json格式 二.json格式转wkt格式 三.json格式的数据进行解析 四.Java读写geojson 五.geotools读取sh ...

  9. 超详细JSON解析步骤

    JSON简介 JAVAScript Object Notation是一种轻量级的数据交换格式 具有良好的可读和便于快速编写的特性. 业内主流技术为其提供了完整的解决方案(有点类似于正则表达式 ,获得了 ...

随机推荐

  1. 彻底理解js中this的指向

    首先必须要说的是,this的指向在函数定义的时候是确定不了的,只有函数执行的时候才能确定this到底指向谁,实际上this的最终指向的是那个调用它的对象(这句话有些问题,后面会解释为什么会有问题,虽然 ...

  2. Unity3D 错误,nativeVideoFrameCallback解决方法。

    原地址:http://blog.csdn.net/alking_sun/article/details/23684733 Unity3D在打包安卓应用的时候,一打开游戏就闪退,接入LogCat之后发现 ...

  3. 由浅入深了解Thrift之客户端连接池化

    一.问题描述 在上一篇<由浅入深了解Thrift之服务模型和序列化机制>文章中,我们已经了解了thrift的基本架构和网络服务模型的优缺点.如今的互联网圈中,RPC服务化的思想如火如荼.我 ...

  4. swift-网络请求

    跟着网上大神写了个,还有待提高啊:http://pan.baidu.com/s/1sjC5Pl7

  5. AwSnap:让全版本(Windows、iOS、Android)Chrome浏览器崩溃的有趣漏洞

    彩蛋爆料直击现场 几周前,我们曾报道了13个字符导致Chrome崩溃的漏洞.然而,这个漏洞有个小小的遗憾,那就是它只在MAC OS X下生效,其他系统并不受影响. 现在,我们又有了一个更有趣的漏洞.黑 ...

  6. 2015年4月 15款免费jQuery插件

    点这里 We have collected for you the 15 fresh, free and handy jQuery plugins that will help to speed up ...

  7. POJ 1419

    #include <iostream> #define MAXN 105 #define max _max using namespace std; int j; bool _m[MAXN ...

  8. java系统属性

    java系统属性 1. java.runtime.name:java的运行环境名称. 2. sun.boot.library.path:jdk\jre中的bin的路径 3. java.vm.versi ...

  9. Java加密技术

    相关链接: Java加密技术(一)——BASE64与单向加密算法MD5&SHA&MAC Java加密技术(二)——对称加密DES&AES Java加密技术(三)——PBE算法  ...

  10. 传说中的WCF(11):会话(Session)

    在标题中我加了一个大家都很熟悉的单词——Session,熟吧?玩过Web开发的朋友肯定在梦中都会见到她. 在Web中为什么要会话呢?毕竟每个用户在一个Web应用中可能不止进行一次操作,比如,某二手飞机 ...