二、用Delphi10.3 創建一條JSON數據的第二種方法，並格式化輸出

一、用Delphi10.3構造一個JSON數據的第二種方法，並格式化輸出，代碼如下：

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

        }

    ]

}

 

 

不忘初心，如果您認為這篇文章有價值，認同作者的付出，可以微信二維碼打賞任意金額給作者（微信號：382477247）哦，謝謝。