|
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
uses superobject;procedure TForm1.FormCreate(Sender: TObject);var aJson: ISuperObject;aSuperArray: TSuperArray; i:Integer;begin {1、赋初值} aJson:=SO(‘{"zoo":"涂磊动物园","animals":[{"name":"猴子","year":"12"},{"name":"老虎","year":"132"}]}‘); {2、读值前，一定要先判断是否存在} if aJson[‘animals‘]<> nil then showmessage( aJson[‘animals‘].AsString ); {3、多值的读取} aSuperArray:= aJson[‘animals‘].AsArray;//多值 "animals":[{"name":"猴子","year":"12"}, // {"name":"老虎","year":"132"}] for i:=0 to aSuperArray.Length-1 do memo1.Lines.Add(aSuperArray[i][‘name‘].AsString+aSuperArray[i][‘year‘].AsString); aJson:=SO(‘{"code":0,"data":{"area":"华东","area_id":"300000","city":"宜春市","city_id":"360900","country":"中国","country_id":"CN","county":"","county_id":"","ip":"59.62.201.110","isp":"电信","isp_id":"100017","region":"江西省","region_id":"360000"}}‘); {4、深层级的访问} if aJson[‘data.country‘]<> nil then showmessage( aJson[‘data.country‘].AsString ); // 中国end; |
转自 ：https://www.cnblogs.com/tulater/p/6141205.html
感谢 涂磊的分享
原文：https://www.cnblogs.com/530263009QQ/p/12487500.html