在Delphi中讀取JSON數組是一個非常常見的操作，在以下的示例中，我們將介紹如何使用TJSONArray和TJSONObject類來讀取JSON數組。

var
jsonArray: TJSONArray;
jsonObject: TJSONObject;
i: Integer;
begin
// 創建一個JSON字符串
jsonString := '[{"name":"John","age":30,"city":"New York"},{"name":"Mike","age":25,"city":"San Francisco"}]';
// 將JSON字符串轉換為JSON數組對象
jsonArray := TJSONObject.ParseJSONValue(jsonString) as TJSONArray;
// 遍歷JSON數組
for i := 0 to jsonArray.Count - 1 do
begin
// 獲取JSON數組中的JSON對象
jsonObject := jsonArray.Items[i] as TJSONObject;
// 獲取JSON對象中的相關屬性
ShowMessage('Name: ' + jsonObject.GetValue('name').Value);
ShowMessage('Age: ' + jsonObject.GetValue('age').Value);
ShowMessage('City: ' + jsonObject.GetValue('city').Value);
end;
// 銷毀JSON數組對象
jsonArray.Free;
end;

在上述示例中，我們首先將一個JSON字符串轉換為JSON數組對象，然后遍歷該JSON數組，獲取其中的JSON對象，最后獲取JSON對象中的相關屬性。

需要注意的是，在使用TJSONObject類獲取JSON對象中的屬性時，需要使用GetValue方法，并且需要使用Value屬性獲取屬性的值。

希望這篇文章可以幫助您了解如何在Delphi中讀取JSON數組。