本文整理自网络，侵删。
复制代码uses //System.JSON, System.JSON.Types, System.JSON.Writers;
procedure TForm1.Button2Click(Sender: TObject);var m_StringWriter: TStringWriter; m_JsonWriter: TJsonTextWriter;begin m_StringWriter := TStringWriter.Create(); m_JsonWriter := TJsonTextWriter.Create(m_StringWriter); try // JSON代码格式化，None为不格式化 m_JsonWriter.Formatting := TJsonFormatting.Indented; m_JsonWriter.WriteStartObject; // 添加班级 m_JsonWriter.WritePropertyName('五班'); m_JsonWriter.WriteStartArray; // 添加一个学生 m_JsonWriter.WriteStartObject; m_JsonWriter.WritePropertyName('姓名'); m_JsonWriter.WriteValue('张三'); m_JsonWriter.WritePropertyName('成绩'); m_JsonWriter.WriteValue(75.5); m_JsonWriter.WriteEndObject; // 添加第二个学生 m_JsonWriter.WriteStartObject; m_JsonWriter.WritePropertyName('姓名'); m_JsonWriter.WriteValue('李四'); m_JsonWriter.WritePropertyName('成绩'); m_JsonWriter.WriteValue(21.7); m_JsonWriter.WriteEndObject; // 结束 m_JsonWriter.WriteEndArray; m_JsonWriter.WriteEndObject; // 输出 Memo1.Lines.Clear; Memo1.Lines.Add(m_StringWriter.ToString); finally m_JsonWriter.Free; m_StringWriter.Free; end;end;复制代码二、输出结果如下：
{
"五班": [
{
"姓名": "张三",
"成绩": 75.5
},
{
"姓名": "李四",
"成绩": 21.7
}
]
}
相关阅读 >>
Delphi xe10 android安卓 移动端 messagedlg 用法
Delphi 用正则表达式获取指定的字符串续取出所有符合要求的字符串
更多相关阅读请进入《Delphi》频道 >>
