一、用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)哦,谢谢。