json 2017-04-21 10 17

jo := SO();
  jo.S['tttt'] := 'tttt';
  TbSendedTidJson['jo'] := jo;

  ja := TbSendedTidJson['jo'];//取出来后，增加新的key， TbSendedTidJson的内容也变的

ja.S['bbb'] := 'bbb'; ShowMessage(TbSendedTidJson.AsString); Exit;