delphi7 JSON测试

procedure TForm1.Button1Click(Sender: TObject);
var
  sj, aj, sjj: ISuperObject;
  i: integer;
begin
  sj := SO();
  sjj := SO();
  aj := SA([]);
  for i := 0 to 10 do
  begin
    sj.s['Phone'] := '156266065566';
    sj.s['SendTime'] := '2013-9-15 11:46:55';
    sj.s['ReceiveTime'] := '2013-9-15 11:46:55';
    sj.s['SMSMsg'] := '测试内容';
    aj.AsArray.Add(sj);
  end;
  sjj.O['SMS'] := aj;
  ShowMessage(sjj.AsString);
end;


procedure TForm1.Button2Click(Sender: TObject);
var
  ColSon, Json, sj, sjj: ISuperObject;
  Json1: PWideChar;
  aj: TSuperArray;
begin
  Json := SO(mmo1.Text);
  ColSon := Json.O['SMS'];
  aj := ColSon.AsArray;
  sj := SO();
  sjj := SO();
  if aj.length > 10 then
    aj.Delete(0);




  sj.s['Phone'] := '13724074454';
  sj.s['SendTime'] := '2013-9-15 11:46:55';
  sj.s['ReceiveTime'] := '2013-9-15 11:46:55';
  sj.s['SMSMsg'] := 'TGDRRWERFDF';
  aj.Add(sj);
    sjj.O['SMS'] := ColSon;
  ShowMessage(sjj.AsString);


end;