Json格式示意图

json视图工具：http://www.bejson.com/jsonviewernew/

一、Json格式化，（看到数组里面又有数组一下子疑问不是合格json）：尾门地址查询：

=>=>=>

{

  "Addresses": [

    "广东省 中山市 火炬开发区 在伟盛路附近 距离顷九327米",

    "广东省 中山市 火炬开发区 在伟盛路附近 距离顷九327米"

  ],

  "Points": [

    {

      "x": 113.456021761023,

      "y": 22.5737174302826

    },

    {

      "x": 113.456021761023,

      "y": 22.5737174302826

    }

  ],

  "Places": [

    [

      "测试区域",

      "su"

    ],

    [

      "测试区域",

      "su"

    ]

  ]

}

procedure TForm10.btn1Click(Sender: TObject);

var

  Jsonstr: string;

  json: ISuperObject;

  jsonAddress, jsonPlaceArray, jsonplace: TSuperArray;

  i, j: Integer;

begin

  Jsonstr := '{"Addresses":["广东省 中山市 火炬开发区 在伟盛路附近 距离顷九327米","广东省' +

    '中山市 火炬开发区 在伟盛路附近 距离顷九327米"],"Points":[{"x":113.456021761023,"y":22.5737174302826},'

    + '{"x":113.456021761023,"y":22.5737174302826}],"Places":[["测试区域","su"],["测试区域","su"]]}';

  json := SO(Jsonstr);

  jsonAddress := json.A['Addresses']; // json.O['Addresses'].AsArray;

  jsonPlaceArray := json.O['Places'].AsArray;

  for i :=  to jsonPlaceArray.Length -  do

  begin

    jsonplace := jsonPlaceArray.O[i].AsArray;

    for j :=  to jsonplace.Length -  do

    begin

      mmo1.Lines.Add(jsonplace.S[j]);

    end;

  end;

end;

处理代码

二、空调检测json结果：

=>=>=>

=>

{

  "ACCResultList": [

    {

      "ACResultList": [

        {

          "ACOpenTime": "2015-12-22 10:15:16",

          "ACCloseTime": "2015-12-22 11:16:16"

        },

        {

          "ACOpenTime": "2015-12-22 13:15:16",

          "ACCloseTime": "2015-12-22 13:16:16"

        }

      ],

      "AnalyzeAccOpenTime": "2015-12-22 9:00:00",

      "AnalyzeAccCloseTime": "2015-12-22 14:00:00"

    },

    {

      "ACResultList": [

        {

          "ACOpenTime": "2015-12-22 17:15:16",

          "ACCloseTime": "2015-12-22 18:16:16"

        },

        {

          "ACOpenTime": "2015-12-22 18:25:16",

          "ACCloseTime": "2015-12-22 19:16:16"

        }

      ],

      "AnalyzeAccOpenTime": "2015-12-22 17:00:00",

      "AnalyzeAccCloseTime": "2015-12-22 20:00:00"

    }

  ],

  "AnalyzeCarStopStatusStartTime": "2015-12-22 9:00:00",

  "AnalyzeCarStopStatusEndTime": "2015-12-22 22:00:00",

  "CommNo": "232321",

  "AnalyzeCarSpeedLat": 2322112,

  "AnalyzeCarSpeedLon": 0

}

procedure TForm10.btn2Click(Sender: TObject);

var

  Jsonstr: String;

  ACCResultArray: TSuperArray;

  ACArray: TSuperArray;

  i, j: Integer;

  jsonNode:ISuperObject;

begin

//  Jsonstr :=

//    '{"ACCResultList":[{"ACResultList":[{"ACOpenTime":"2015-12-22 10:15:16","ACCloseTime":"2015-12-22 11:16:16"},'

//    +'{"ACOpenTime":"2015-12-22 13:15:16","ACCloseTime":"2015-12-22 13:16:16"}]"AnalyzeAccOpenTime":"2015-12-22'+

//    ' 9:00:00","AnalyzeAccCloseTime":"2015-12-22 14:00:00"},'

//    +'{"ACResultList":[{"ACOpenTime":"2015-12-22 17:15:16","ACCloseTime":"2015-12-22 18:16:16"},'

//    +'{"ACOpenTime":"2015-12-22 18:25:16","ACCloseTime":"2015-12-22 19:16:16"}],"AnalyzeAccOpenTime":"2015-12-22 '

//    +'17:00:00","AnalyzeAccCloseTime":"2015-12-22 20:00:00"}],"AnalyzeCarStopStatusStartTime":"2015-12-22'

//    +' 9:00:00","AnalyzeCarStopStatusEndTime":"2015-12-22 22:00:00","CommNo":"232321","AnalyzeCarSpeedLat":2322112,"AnalyzeCarSpeedLon":0}';

 //此处发现两个情况，如果json数据放在 Memo中有空格回车键，转成string 转成不了 json对象；删除空格键可以

  //2 string 拼接成一条也转成不了。如上屏蔽的拼接 不成功。

  jsonNode := SO(mmo1.Lines.CommaText);

    ACCResultArray := jsonNode.A['ACCResultList'];

  // 或者类似这样 jsonNode.O['ACCResultList'].AsArray;

  for i :=  to ACCResultArray.Length -  do

  begin

    ACArray := ACCResultArray.O[i].A['ACResultList']; //这样也可以ACCResultArray.O[i].O['ACResultList'].AsArray;

    for j :=  to ACArray.Length -  do

    begin

      mmo1.Lines.Add( ACArray.O[j].S['ACOpenTime']);

      mmo1.Lines.Add(ACArray.O[j].S['ACCloseTime']);

    end;

  end;

end;

测试代码

个人总结：数组[] 里面的并列对象不可以有名字（因为是并列的，有不同名字就不是同样的了）；Json 最外面的{} 前不可以有名字（如 "A":{}是不允许的）；对象{}里面的对象前都必须要有名字； 不知道是否有问题。

例子1测试页：http://121.12.249.239:35080/arcgis/rest/services/PlaceService/MapServer/exts/PlaceServiceSOE/GetAddressAndPlace?groupid=156&points=%5B%7Bx%3A113.456021761023%2C+y%3A22.5737174302826%7D%5D&f=html