手动添加JOSN串

var
  jo,jo1,jEntity,jSubEntity: ISuperObject;
  jaOrder,jaEntity,jaSubEntity: ISuperObject;
  i,j,entityCount,subEntityCount: Integer;
begin
 (*  {"state":2000,"message":null,"data":{"infos":16,"updateTime":"2022-02-23 13:21:35"}}
  jo := SO();
  jaEntity := So();
  jaOrder :=SA([]);

  jaEntity.i['infos']:=16;
  jaEntity.S['updateTime']:='2022-02-23 13:21:35';

  jo.S['state']:='2000';
  jo.s['message']:='null';
  jo.O['data']:=jaEntity;    *)

   // {"state":2000,"message":null,"data":{"infos":[{"id":16,"updateTime":"2022-02-23 13:21:35"},
  //{"id":17,"orgId":null,"createTime":null,"updateTime":"2021-02-23 14:46:29"},
  //{"id":18,"orgId":null,"createTime":null,"updateTime":"2021-06-18 14:52:29"}]}}

   //  {"message":"null","state":"2000","data":{"infos":[{"updateTime":"20220307145038666","id":5},{"updateTime":"20220307145038666","id":5},{"updateTime":"20220307145038666","id":5},{"updateTime":"20220307145038666","id":5},{"updateTime":"20220307145038666","id":5}]}}

   jo := SO();
  // jo1 := SO();
 (*
  jaOrder :=SA([]);
  //jo.S['state']:='2000';
  //jo.s['message']:='null';

  for j:=1 to 5 do
  begin
    jaEntity := So();
    jaEntity.i['id']:=j;
    memo1.Lines.add(formatdatetime('yyyymmddhhnnsszzz',now));
    jaEntity.s['updateTime']:=formatdatetime('yyyymmddhhnnsszzz',now);
    jaOrder.AsArray.Add(jaEntity)
  end;
  //jo1.O['infos']:=jaOrder;
 // jo.O['data']:= jo1;
 // memo1.Lines.add('"bcjllist":'+jaOrder.AsString);
  //jaEntity := So('"bcjllist":'+jaOrder.AsString);
  jaEntity := So();
  jaOrder:=so('[{"updateTime":"20220307145038666","id":1},{"updateTime":"20220307145038666","id":5}]');
  jaEntity.O['bcjllist']:=jaOrder;
  memo1.Lines.add(jaEntity.AsString);
 memo1.Lines.add(inttostr(jaEntity.A['bcjllist'].Length));
 memo1.Lines.add(jaEntity.A['bcjllist'].N[0].AsString);    *)
 (*for j:=0 to jaEntity.A['bcjllist'].Length-1 do
 begin
   memo1.Lines.add(jaEntity.A['bcjllist'].N[j].S['id']);
 end;    *)