Delphi 是一種強(qiáng)大的編程語言，非常適合在 Windows 環(huán)境下開發(fā)桌面應(yīng)用程序。其中，JSON 數(shù)組是一個常見的數(shù)據(jù)格式，可以用 Delphi 輕松解析和生成。

var
jsonArray: TJSONArray;
jsonObject: TJSONObject;
begin
// 創(chuàng)建一個 JSON 數(shù)組對象
jsonArray := TJSONArray.Create;
// 添加多個 JSON 對象到數(shù)組中
jsonObject := TJSONObject.Create;
jsonObject.AddPair('name', 'Tom');
jsonObject.AddPair('age', 25);
jsonArray.AddElement(jsonObject);
jsonObject := TJSONObject.Create;
jsonObject.AddPair('name', 'Jerry');
jsonObject.AddPair('age', 30);
jsonArray.AddElement(jsonObject);
// 將 JSON 數(shù)組對象轉(zhuǎn)換為字符串
ShowMessage(jsonArray.ToString);
// 釋放資源
jsonArray.Free;

在這個例子中，我們首先創(chuàng)建了一個 TJSONArray 對象，然后添加了兩個 TJSONObject 對象到數(shù)組中，每個 JSON 對象都包含一個名字和年齡字段。最后，我們將 JSON 數(shù)組對象轉(zhuǎn)換為字符串，并在消息框中顯示。

如果我們想要解析現(xiàn)有的 JSON 字符串，可以使用 TJSONObject.ParseJSONValue() 方法：

var
jsonString: string;
jsonArray: TJSONArray;
jsonObject: TJSONObject;
begin
// 假設(shè) jsonString 是一個包含 JSON 數(shù)組的字符串
jsonArray := TJSONObject.ParseJSONValue(jsonString) as TJSONArray;
// 遍歷數(shù)組中的每個 JSON 對象
for i := 0 to jsonArray.Count - 1 do
begin
jsonObject := jsonArray.Items[i] as TJSONObject;
ShowMessage(jsonObject.GetValue('name').Value);
end;
// 釋放資源
jsonArray.Free;

在這個例子中，我們通過 TJSONObject.ParseJSONValue() 方法將 JSON 字符串轉(zhuǎn)換為 TJSONArray 對象，然后遍歷數(shù)組中的每個 JSON 對象，并顯示它們的名字字段。

總的來說，Delphi 對 JSON 數(shù)組的支持非常好，使開發(fā)人員可以輕松地處理 JSON 數(shù)據(jù)。無論是解析現(xiàn)有的 JSON 字符串，還是生成新的 JSON 對象，Delphi 都提供了簡單易用的方法。