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 ; |
分类:
Delphi7相关
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· 从 HTTP 原因短语缺失研究 HTTP/2 和 HTTP/3 的设计差异
· AI与.NET技术实操系列:向量存储与相似性搜索在 .NET 中的实现
· 基于Microsoft.Extensions.AI核心库实现RAG应用
· Linux系列:如何用heaptrack跟踪.NET程序的非托管内存泄露
· 开发者必知的日志记录最佳实践
· TypeScript + Deepseek 打造卜卦网站:技术与玄学的结合
· Manus的开源复刻OpenManus初探
· AI 智能体引爆开源社区「GitHub 热点速览」
· C#/.NET/.NET Core技术前沿周刊 | 第 29 期(2025年3.1-3.9)
· 从HTTP原因短语缺失研究HTTP/2和HTTP/3的设计差异