Delphi10.3构造一个JSON数据的第三种方法，并格式化输出

本文整理自网络，侵删。

 
用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

        }

    ]

}
 

相关阅读 >>

Delphi创建证书密钥库文件

Delphi 打开win8及以上操作系统的系统已安装程序目录

Delphi使用hough变换查找直线

Delphi锁定鼠标 模拟左右键 静止一会自动隐藏鼠标

Delphi 从url地址中获得文件名

Delphi 获取url特殊路径

Delphi 一个中英文记录Delphi实现

Delphi 如果判断一个网络文件是否存在？

wmi远程访问问题解决方法

Delphi 进程通讯之wm_copydata 发送程序（senddata.exe）

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi10.3构造一个JSON数据的第三种方法，并格式化输出