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}]}

来源：https://www.cnblogs.com/tianpan2019/p/10497843.html
 

相关阅读 >>

Delphi firedac 下的 sqlite [5] - 数据的插入、更新、删除

Delphi时间格式错误

Delphi获取access中的表名代码

Delphi线程的创建、挂起、激活与终止

Delphi image1 图像旋转90

Delphi 修改快捷方式

Delphi 申请管理员权限级别

Delphi 是否是闰年- isleapyear、isinleapyear

Delphi shutdown() 关机

Delphi判断字符串中是否包含汉字，并返回汉字位置

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

转载请注明出处：木庄网络博客 » Delphi10.3 构造生成输出JSON数据