自带ＪＳＯＮ解析工具

procedure TForm1.Button1Click(Sender: TObject);

var

  jo, jo2, jo3: TJSONObject;

  ja, ja3: TJSONArray;

  jv: TJSONValue;

  jp: TJSONPair;

 

  i, j, k, x: integer;

begin

  Memo2.Clear;

  jo := TJSONObject.ParseJSONValue(Memo1.Text) as TJSONObject;

 

  jo.Get('success').JsonString.Value; // success

  jo.Get('success').JsonValue.Value; // true

 

  jo.Get('message').JsonString.Value; // message

  jo.Get('message').JsonValue.Value; // null

 

  jo.Get('code').JsonString.Value; // code

  jo.Get('code').JsonValue.Value; // 0

 

  ja := jo.Get('list').JsonValue as TJSONArray;

 

  for i := 0 to ja.Count - 1 do

  begin

    jo2 := ja.Get(i) as TJSONObject;

    for j := 0 to jo2.Size - 1 do

    begin

 

      if (jo2.Get(j).JsonString.Value = 'odList') then

      begin

        ja3 := jo2.Get(j).JsonValue as TJSONArray;

        for k := 0 to ja3.Size - 1 do

        begin

          jo3 := ja3.Get(k) as TJSONObject;

          for x := 0 to jo3.Size - 1 do

          begin

            Memo2.Lines.Add(jo3.Get(x).JsonString.Value);

            Memo2.Lines.Add(jo3.Get(x).JsonValue.Value);

          end;

 

        end;

 

      end

      else

      begin

        Memo2.Lines.Add(jo2.Get(j).JsonString.Value);

        Memo2.Lines.Add(jo2.Get(j).JsonValue.Value);

      end;

    end;

  end;

end;