delphi7 JSON测试

最新推荐文章于 2024-09-02 20:32:20 发布

shandiantianying

最新推荐文章于 2024-09-02 20:32:20 发布

阅读量5.3k

点赞数

分类专栏： delphi

本文链接：https://blog.csdn.net/shandiantianying/article/details/11745881

版权

delphi 专栏收录该内容

5 篇文章 0 订阅

订阅专栏

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;