delphi中解析json

SuperObject 是开源的 Delphi 的 JSON 工具包，可生成 JSON 数据以及进行 JSON 解析。

uses superobject;  

procedure Save();

var sjson:string;

  json,item:ISuperObject;

begin

  sjson:='{"wav":"1" , "list":[{"name":"a"},{"name":"b"}] }';

  json:=so(sjson);

  showmessage(json['wav'].AsString);

  for item in json['list'] do

  begin

    showmessage(item['name'].AsString);

  end;

end;