用Delphi10.3 创建一条JSON数据

一、用Delphi10.3构造一个JSON数据，非常之容易，代码如下：

uses
  System.JSON;

procedure TForm1.Button1Click(Sender: TObject);
var
  m_Object, m_Json1, m_Json2: TJSONObject;
  m_JsonArray: TJSONArray;
begin
  m_Object := TJSONObject.Create;
  try
    // JSON数组
    m_JsonArray := TJSONArray.Create;
    // 数组成员一
    m_Json1 := TJSONObject.Create;
    m_Json1.AddPair('姓名', TJSONString.Create('张三'));
    m_Json1.AddPair('成绩', TJSONNumber.Create(75.5));
    m_JsonArray.Add(m_Json1);
    // 数组成员二
    m_Json2 := TJSONObject.Create;
    m_Json2.AddPair('姓名', TJSONString.Create('李四'));
    m_Json2.AddPair('成绩', TJSONNumber.Create(21.7));
    m_JsonArray.Add(m_Json2);
    // JSON对象
    m_Object.AddPair('五班', m_JsonArray);
    // 输出
    Memo1.Lines.Clear;
    Memo1.Lines.Add(m_Object.ToString);
  finally
    m_Object.Free;
  end;
end;

二、输出结果如下：  

{"五班":[{"姓名":"张三","成绩":75.5},{"姓名":"李四","成绩":21.7}]}

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