• 设为首页
  • 点击收藏
  • 手机版
    手机扫一扫访问
    迪恩网络手机版
  • 关注官方公众号
    微信扫一扫关注
    公众号

三、用Delphi10.3创建一条JSON数据的第三种方法,非常简洁的写法 ...

原作者: [db:作者] 来自: [db:来源] 收藏 邀请

一、用Delphi10.3构造一个JSON数据的第三种方法,并格式化输出,代码如下:

uses
  // System.JSON,
  System.JSON.Types,
  System.JSON.Writers,
  System.JSON.Builders;

procedure TForm1.Button3Click(Sender: TObject);
var
  m_StringWriter: TStringWriter;
  m_JsonWriter: TJsonTextWriter;
  m_JsonBuilder: TJSONObjectBuilder;
begin
  m_StringWriter := TStringWriter.Create();
  m_JsonWriter := TJsonTextWriter.Create(m_StringWriter);
  m_JsonBuilder := TJSONObjectBuilder.Create(m_JsonWriter);
  try
    m_JsonWriter.Formatting := TJsonFormatting.Indented;
    //JSON构造
    m_JsonBuilder
      .BeginObject
        .BeginArray('五班')
          .BeginObject
            .Add('姓名', '张三')
            .Add('成绩', 75.5)
          .EndObject
          .BeginObject
            .Add('姓名', '李四')
            .Add('成绩', 21.7).
          EndObject
        .EndArray
      .EndObject;
    //输出
    Memo1.Lines.Clear;
    Memo1.Lines.Add(m_StringWriter.ToString);
  finally
    m_JsonBuilder.Free;
    m_JsonWriter.Free;
    m_StringWriter.Free;
  end;
end;

二、输出结果如下:  

{

    "五班": [

        {

            "姓名": "张三",

            "成绩": 75.5

        },

        {

            "姓名": "李四",

            "成绩": 21.7

        }

    ]

}

 

不忘初心,如果您认为这篇文章有价值,认同作者的付出,可以微信二维码打赏任意金额给作者(微信号:382477247)哦,谢谢。

 

 


鲜花

握手

雷人

路过

鸡蛋
该文章已有0人参与评论

请发表评论

全部评论

专题导读
上一篇:
matlab学习——05插值和拟合(黄河小浪底调水调沙问题)发布时间:2022-07-18
下一篇:
matlab使用常犯的错误发布时间:2022-07-18
热门推荐
阅读排行榜

扫描微信二维码

查看手机版网站

随时了解更新最新资讯

139-2527-9053

在线客服(服务时间 9:00~18:00)

在线QQ客服
地址:深圳市南山区西丽大学城创智工业园
电邮:jeky_zhao#qq.com
移动电话:139-2527-9053

Powered by 互联科技 X3.4© 2001-2213 极客世界.|Sitemap