delphi6delphi7json数据解析

现在网络开发都需解析json数据，delphi6，dephi7 没有现成的只有引入jsons单元 在我的资源里

以下是使用方法

uses jsons;

var

json: TJSONObject;

一级json数据解析

str='{"data":"123"}';

json := TJSONObject.Create;

try
        json.Parse（str）
        showmessage('json.Values['data'].AsString');

  finally
        json.Free;
 end;

二级json数据解析

str='{"data":{"data":"123"}}';

 json.Values['data'].AsObject.Values['data'].AsString=123

三级级json数据解析（多级解析以此类推）

str='{"data":{"data":{"data":"123"}}}';

json.Values['data'].AsObject.Values['data'].AsObject.Values['data'].asString=123

带数组的

str='{"data":{"data1":[{"data2":"123"},{"data3":"456"}]}}';

var

jsonarr:tjsonarray;

 jsonarr:=json.Values['data'].AsObject.Values['data1'].AsArray

 jsonarr.Items[0].AsObject.Values['data2'].AsString=123
  
 jsonarr.Items[1].AsObject.Values['data3'].AsString=456