下載xsuperobject相關單元文件。
https://download.csdn.net/download/pallastjz/10966883
首先將下載好的pas文檔複製到項目文件夾下。
uses
XSuperJSON, XSuperObject;
1、放置memo+button組件到窗體上。
2、設置memo的lines爲如下。
{
"o": {
"1234567890": {
"last use date": "2010-10-17T01:23:20.000",
"create date": "2010-10-17T01:23:20.000",
"name": "iPhone 8s"
}
},
"Index": 0,
"Data": {
"Index2": 1
},
"a": [{
"last use date": "2010-10-17T01:23:20.000",
"create date": "2010-11-17T01:23:20.000",
"name": "iPhone 8s",
"arr": [1, 2, 3, "test1"]
}, {
"message": "hello"
}]
}
3、編寫button的click事件後執行代碼。
var
X: ISuperObject;
NewJSon: ISuperObject;
NewArray: ISuperArray;
begin
X := SO(Memo1.Text);
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;
memo1.Lines.Add(x.AsJSON())//將x作爲json格式顯示在memo組件中。
end;
結果。