Delphi7 是一款較老的編程工具，但是在很多項目中仍然得到了廣泛的應用。在實際開發中，我們可能會遇到需要解析 JSON 數組的情況。本文將介紹如何使用 Delphi7 解析 JSON 數組。

首先，我們需要使用 Delphi7 中提供的 JsonDataObjects 庫。該庫是一個輕量級的 JSON 解析和生成庫，可以很方便地解析 JSON 數據。

假設我們有以下 JSON 數組：

[
{
"name": "Tom",
"age": 18
},
{
"name": "Lucy",
"age": 20
},
{
"name": "Jack",
"age": 22
}
]

我們可以使用 TJsonArray 類型來表示該數組：

var
jsonArr: TJSONArray;
begin
jsonArr := TJSONArray.Create;
try
jsonArr.Parse('[{"name": "Tom", "age": 18}, {"name": "Lucy", "age": 20},
{"name": "Jack", "age": 22}]');
// 解析 JSON 數組，遍歷每個元素
for i := 0 to jsonArr.Count - 1 do
begin
jsonObj := jsonArr.Items[i] as TJSONObject;
name := jsonObj.GetValue('name').Value;
age := jsonObj.GetValue('age').Value.ToInteger;
// TODO: 對解析出來的數據進行業務操作
end;
finally
jsonArr.Free;
end;
end;

在上面的代碼中，我們首先創建了一個 TJSONArray 實例，然后調用 Parse 方法將 JSON 數組解析為 TJSONArray 實例，接著使用 for 循環遍歷每個 JSON 對象，然后使用 GetValue 方法獲取屬性值。

需要注意的是，在獲取屬性值的時候，我們需要使用 ToInteger 方法將字符串類型的屬性值轉換為數字。

以上就是使用 Delphi7 解析 JSON 數組的方法，希望對大家有所幫助。