fpjson读取json数据

jeeren

终于搞定多层json读取问题了，flag下希望能帮到有需要的朋友们。


引用单元：fpjson，JsonParser

1. procedure TForm1.Button2Click(Sender: TObject);
   
2. var jData:TJSONData;
   
3.     jDataArr:TJSONData;
   
4.     jObject:TJSONObject;
   
5.     jArray:TJSONArray;
   
6.     s:String;
   
7. begin
   
8.   try
   
9.   s:=Memo1.Text;
   
10. 
    
11.   jData:=GetJSON(s);    //获取json数据
    
12.   Memo2.Text:=jData.AsJSON;    //格式化json一
    
13. //Memo2.Text:=jData.FormatJSON;    //格式化json二
    
14. 
    
15.   jObject:=TJSONObject(jData);    //json数据结构化一
    
16.   //jObject:=jData as TJSONObject;    //json数据结构化二
    
17.   Memo2.Lines.Add(jObject.Strings['infocode']);    //读取json键值一
    
18.   //Memo2.Lines.Add(jObject.Get('infocode',''));    //读取json键值二，第2个参数为默认值
    
19. 
    
20.   jObject.Integers['infocode']:=10101;        //给键重新赋值
    
21.   jObject.Add('update',now());    //新增一对键值
    
22. 
    
23.   jDataArr:=jData.FindPath('lives[0].city');    //查找多层json路径，返回jsonData
    
24.   Memo2.Lines.Add(jDataArr.AsJSON);    //读取多层json键值一
    
25.   //Memo2.Lines.Add(jDataArr.FormatJSON);    //读取多层json键值二
    
26. 
    
27.   jArray:=TJSONArray.Create;    //创建json空数组
    
28.   jArray.Add('東');    //给数据添加元素
    
29.   jArray.Add('南');
    
30.   jArray.Add('西');
    
31.   jArray.Add('北');
    
32.   jObject.Add('方位',jArray);    //给数组命名并赋值
    
33. 
    
34.   Memo2.Lines.Add(jData.FindPath('方位[0]').AsString);    //取出方位数组的第一个元素：東
    
35.   except
    
36.     on E:EHttpClient do
    
37.        ShowMessage(e.Message);
    
38.   end;
    
39. 
    
40.   //最后要释放jData，否则会出现内存泄漏
    
41.   //jData.Free;
    
42.   //jDataArr.Free;
    
43. 
    
44.   //参考信息来源 https://wiki.freepascal.org/fcl-json
    
45. end;

复制代码