Delphi是一種強大的編程語言，它支持許多不同的數據格式，其中包括JSON（JavaScript Object Notation）。JSON是一種輕量級的數據交換格式，被廣泛用于Web應用程序和RESTful服務。使用Delphi，我們可以輕松地讀取和查詢JSON數據。

要查詢JSON數據，我們首先需要使用TJSONObject類將JSON字符串轉換為對象。例如，以下代碼將JSON字符串轉換為TJSONObject：

var
JsonString: string;
JsonObject: TJSONObject;
begin
JsonString := '{"name":"John","age":30,"city":"New York"}';
JsonObject := TJSONObject.ParseJSONValue(JsonString) as TJSONObject;
end;

在這個示例中，我們創建一個名為JsonString的字符串，其中包含包含名稱、年齡和城市的JSON對象。然后，我們使用TJSONObject.ParseJSONValue方法將JSON字符串轉換為TJSONObject對象。

一旦我們將JSON字符串轉換為TJSONObject對象，我們就可以輕松地查詢它們的屬性。例如，以下代碼將顯示JSON對象的“name”屬性：

var
JsonString: string;
JsonObject: TJSONObject;
Name: string;
begin
JsonString := '{"name":"John","age":30,"city":"New York"}';
JsonObject := TJSONObject.ParseJSONValue(JsonString) as TJSONObject;
Name := JsonObject.GetValue('name').Value; // 返回 "John"
end;

在這個示例中，我們使用TJSONObject.GetValue方法查詢JSON對象的“name”屬性。GetValue方法返回一個TJSONValue對象，我們可以使用Value屬性獲取其值。

如果JSON對象包含數組，則我們可以使用TJSONArray類訪問它們。例如，以下代碼將顯示JSON數組中的第二個元素：

var
JsonString: string;
JsonObject: TJSONObject;
Albums: TJSONArray;
SecondAlbum: string;
begin
JsonString := '{"name":"John","albums":["Album 1","Album 2","Album 3"]}';
JsonObject := TJSONObject.ParseJSONValue(JsonString) as TJSONObject;
Albums := JsonObject.GetValue('albums') as TJSONArray;
SecondAlbum := Albums.Items[1].Value; // 返回 "Album 2"
end;

在這個示例中，我們使用TJSONObject.GetValue方法查詢包含名稱和相應專輯數組的JSON對象。然后，我們使用TJSONArray類訪問數組，并使用Items屬性索引特定元素。

以上是使用Delphi查詢JSON數據的簡單示例。使用TJSONObject和TJSONArray類，我們可以高效地處理JSON對象和數組，并輕松地查詢它們的屬性。