一、用Delphi10.3 創建一條JSON數據

一、用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）哦，謝謝。