Delphi是一種面向?qū)ο蟮木幊陶Z言，支持多種不同的數(shù)據(jù)格式，其中之一就是JSON（JavaScript Object Notation）。JSON是一種輕量級的數(shù)據(jù)交換格式，常用于網(wǎng)絡(luò)傳輸和數(shù)據(jù)存儲，以提高數(shù)據(jù)傳輸效率。在Delphi中編寫JSON十分簡單，可以借助JsonDataObjects庫來實現(xiàn)。

uses
JsonDataObjects;
var
jsonObj: TJsonObject;
jsonArray: TJsonArray;
begin
// 創(chuàng)建一個JSON對象
jsonObj := TJsonObject.Create;
jsonObj.S['name'] := '小明';
jsonObj.I['age'] := 18;
jsonObj.S['gender'] := 'male';
// 添加一個數(shù)組
jsonArray := TJsonArray.Create;
jsonArray.Add('music');
jsonArray.Add('basketball');
jsonArray.Add('reading');
jsonObj.A['hobbies'] := jsonArray;
// 將JSON對象轉(zhuǎn)為字符串
Memo1.Text := jsonObj.ToJSON;
end;

以上代碼展示了如何創(chuàng)建一個JSON對象，并給其添加一個數(shù)組。需要注意的是，在添加數(shù)組時需要先創(chuàng)建一個TJsonArray對象，然后使用Add方法添加元素。轉(zhuǎn)換為字符串時，可以使用ToJSON方法將JSON對象轉(zhuǎn)為字符串，在Memo組件中進行顯示。