组Json以及拆分Json

例子:

组Json串:

  

 1 procedure TForm8.Button4Click(Sender: TObject);
 2 var
 3   i: Integer;
 4   jfields, jitems, jo: ISuperObject;
 5 begin
 6   Memo1.Clear;
 7   jitems := SA([]);
 8   jo := SO();
 9   with ADOQuery1 do
10   begin
11     First;
12     while not eof do
13     begin
14       jfields := SO();
15       for i := 0 to FieldCount - 1 do
16       begin
17         jfields.S['Addr'] := FieldByName('Addr').Value;
18         jfields.S['Factory'] := FieldByName('Factory').Value;
19       end;
20       jitems.AsArray.Add(jfields);
21       Next;
22     end;
23   end;
24   jo.S['1111111'] := '11111';
25   jo.S['22222'] := '22222';
26   jo.S['33333'] := '33333';
27   jo.S['444444'] := '444444';
28   jo.O['records'] := jitems;
29 
30   Memo1.Lines.Add(jo.AsString);
31 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;

    拆分后的图:

      

      

 

转载于:https://www.cnblogs.com/OSKnown/p/8308769.html

  • 0
    点赞
  • 2
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值