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}]}
推荐分享
图文皆来源于网络，内容仅做公益性分享，版权归原作者所有，如有侵权请告知删除！
Copyright © 2014 DelphiW.com 开发 源码 文档 技巧 All Rights Reserved
晋ICP备14006235号-8 晋公网安备 14108102000087号
执行时间: 0.040683031082153 seconds