【Delphi】一个使用简单的Delphi JSON构建类(需要Delphi 10.1及以上版本)

最新推荐文章于 2024-05-27 10:38:49 发布

原创

最新推荐文章于 2024-05-27 10:38:49 发布 · 1k 阅读

4 ·

CC 4.0 BY-SA版权

博客展示了如何利用Delphi的TJSONBuilder类创建和管理JSON对象，该类为单例设计，确保内存管理，并提供了简洁的链式API示例，用于构建复杂的JSON结构。

说明：

这里实现的JSON构建类TJSONBuilder继承自Delphi 10.1开始提供的TJSONObjectBuilder。TJSONBuilder最多只允许存在一个实例，每次执行TJSONBuilder.Create时都会自动清除掉上一次创建的实例，程序关闭时也会自动清除最后创建的实例，因此使用这个类不需要考虑内存释放的问题。

使用示例：

uses uJSONBuilder, System.JSON.Builders;

procedure TForm1.ButtonShowClick(Sender: TObject);
begin
  TJSONBuilder.Create
    .BeginObject //注意这并不是什么delphi新语法，而是普通的链式写法而已，如A.B('bigcat').C.D...
       .Add('touser', 'BigCat')
       .Add('msgtype', 'text')
       .BeginObject('消息')
          .Add('title'  , '快递通知')
          .Add('content', '你的快递已到，请携带工卡前往邮件中心领取。')
       .EndObject
       .BeginArray('快递物品清单')
          .BeginObject
             .Add('图书数', 3)
          .EndObject
          .BeginObject
             .Add('手机数', 3)
          .EndObject
       .EndArray
       .Add('agentid', 1000002)
    .EndObject;
  ShowMessage(T

最低0.47元/天解锁文章