Delphi7下SuperObject的JSON使用方法

最新推荐文章于 2024-10-17 13:01:09 发布

转载最新推荐文章于 2024-10-17 13:01:09 发布 · 310 阅读

0 ·

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/railgunman/p/10288233.html

文章标签：

#json

本文详细介绍了如何使用SuperObject组件在Delphi中解析和操作JSON数据，包括初始化对象、读取简单值、处理数组及深层级访问等关键操作。通过具体示例展示了如何遍历JSON数组并提取复杂结构中的特定数据。

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/railgunman/p/10288233.html