lazarus fpjson使用例子
procedure TForm1.Button2Click(Sender: TObject); var jData:TJSONData; jDataArr:TJSONData; jObject:TJSONObject; jArray:TJSONArray; s:String; begin try s:=Memo1.Text; //json数据源 jData:=GetJSON(s); //获取json数据 Memo2.Text:=jData.AsJSON; //格式化json一 //Memo2.Text:=jData.FormatJSON; //格式化json二 jObject:=TJSONObject(jData); //json数据结构化一 //jObject:=jData as TJSONObject; //json数据结构化二 Memo2.Lines.Add(jObject.Strings['infocode']); //读取json键值一 //Memo2.Lines.Add(jObject.Get('infocode','')); //读取json键值二,第2个参数为默认值 jObject.Integers['infocode']:=10101; //给键重新赋值 jObject.Add('update',now()); //新增一对键值 jDataArr:=jData.FindPath('lives[0].city'); //查找多层json路径,返回jsonData Memo2.Lines.Add(jDataArr.AsJSON); //读取多层json键值一 //Memo2.Lines.Add(jDataArr.FormatJSON); //读取多层json键值二 jArray:=TJSONArray.Create; //创建json空数组 jArray.Add('東'); //给数据添加元素 jArray.Add('南'); jArray.Add('西'); jArray.Add('北'); jObject.Add('方位',jArray); //给数组命名并赋值 Memo2.Lines.Add(jData.FindPath('方位[0]').AsString); //取出方位数组的第一个元素:東 except on E:EHttpClient do ShowMessage(e.Message); end; //最后要释放jData,否则会出现内存泄漏 //jData.Free; //jDataArr.Free; end;
分类:
Lazarus
【推荐】国内首个AI IDE,深度理解中文开发场景,立即下载体验Trae
【推荐】编程新体验,更懂你的AI,立即体验豆包MarsCode编程助手
【推荐】抖音旗下AI助手豆包,你的智能百科全书,全免费不限次数
【推荐】轻量又高性能的 SSH 工具 IShell:AI 加持,快人一步
· TypeScript + Deepseek 打造卜卦网站:技术与玄学的结合
· Manus的开源复刻OpenManus初探
· AI 智能体引爆开源社区「GitHub 热点速览」
· 从HTTP原因短语缺失研究HTTP/2和HTTP/3的设计差异
· 三行代码完成国际化适配,妙~啊~