组Json以及拆分Json

例子：

组Json串：

  

procedure TForm8.Button4Click(Sender: TObject);
var
  i: Integer;
  jfields, jitems, jo: ISuperObject;
begin
  Memo1.Clear;
  jitems := SA([]);
  jo := SO();
  with ADOQuery1 do
  begin
    First;
    while not eof do
    begin
      jfields := SO();
      for i := 0 to FieldCount - 1 do
      begin
        jfields.S['Addr'] := FieldByName('Addr').Value;
        jfields.S['Factory'] := FieldByName('Factory').Value;
      end;
      jitems.AsArray.Add(jfields);
      Next;
    end;
  end;
  jo.S['1111111'] := '11111';
  jo.S['22222'] := '22222';
  jo.S['33333'] := '33333';
  jo.S['444444'] := '444444';
  jo.O['records'] := jitems;

  Memo1.Lines.Add(jo.AsString);
end;

组装好以后图：

 

    拆分Json：

      mmo1.Text := '{"code":268435457,"message":"记录异常","data":{"savedCount":0,"faildItems":[{"ReasonUNRead":0}]}}';

      1、ShowMessage(jo.O['message'].AsString);

            st:=jo['data'].O['faildItems'].AsArray;
            for I := 0 to st.Length - 1 do
            begin
              s:='';
              s := s+' '+st.O[i].AsString;
              Memo1.Lines.Add(s);
            end;

    拆分后的图：