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