Delphi 是一種編程語言，支持使用第三方庫讀取和解析 JSON 文件。JSON（JavaScript Object Notation）是一種輕量級的數據交換格式，在如今的 web 應用程序中被廣泛使用。本文將介紹如何使用 Delphi 讀取 JSON 數據。

首先，我們需要將 JSON 文件讀取到 Delphi 程序中。下面是一個示例代碼：

var
json: TJSONObject;
str: TStringList;
begin
str := TStringList.Create;
try
str.LoadFromFile('data.json');
json := TJSONObject.ParseJSONValue(str.Text) as TJSONObject;
finally
str.Free;
end;

在這個示例中，我們使用 TStringList 類來讀取 JSON 文件中的文本。TJSONObject.ParseJSONValue 函數將解析 JSON 數據，并將其轉換為 TJSONObject 類型。

一旦我們已經讀取了 JSON 數據，我們可以使用 TJSONObject 類來訪問其中的內容。下面是一個示例代碼：

var
json: TJSONObject;
name: string;
age: Integer;
begin
name := json.GetValue('name').Value;
age := json.GetValue('age').Value.ToInteger;
end;

在這個示例中，我們使用 TJSONObject.GetValue 函數來獲取 JSON 對象中名為 'name' 和 'age' 的屬性。然后，我們可以使用 TJSONValue 類提供的 Value 和 ToInteger 函數來訪問這些屬性的值。

除了訪問 JSON 對象中的屬性外，我們還可以使用 TJSONObject 類來遍歷 JSON 數組。下面是一個示例代碼：

var
json: TJSONArray;
i: Integer;
begin
for i := 0 to json.Count - 1 do
begin
// 訪問數組中的每個元素
end;
end;

在這個示例中，我們使用 TJSONArray 類的 Count 屬性來獲取數組中元素的數量。然后，我們可以使用 for 循環來遍歷數組，并訪問其中的每個元素。

通過本文，我們了解了如何使用 Delphi 讀取和解析 JSON 數據。您可以在您的 Delphi 項目中使用這些技術來訪問 web 服務的 JSON 響應或讀取 JSON 數據文件。