Delphi是一種廣泛使用的編程語言，可以用于開發各種桌面和Web應用程序。本文將介紹如何在Delphi中使用JSON獲取網站數據。

首先，我們要使用Delphi的TNetHTTPClient類來建立HTTP連接：

var
HTTP: TNetHTTPClient;
Response: IHTTPResponse;
 begin
HTTP := TNetHTTPClient.Create(nil);
Response := HTTP.Get('http://example.com/data.json');
try
if Response.StatusCode = 200 then
begin
//處理JSON數據
end;
finally
HTTP.Free;
end;

這段代碼中，我們使用HTTP.Get方法獲取位于http://example.com/data.json的JSON數據。如果響應狀態碼為200，表示響應成功，我們可以繼續處理JSON數據。

接下來，我們使用Delphi的TJSONObject類解析JSON數據：

var
JSON: TJSONObject;
 begin
JSON := TJSONObject.ParseJSONValue(Response.ContentAsString) as TJSONObject;
try
//處理JSON數據
finally
JSON.Free;
end;

這段代碼中，我們使用TJSONObject.ParseJSONValue方法將JSON字符串解析為JSON對象。處理完畢后，我們需要釋放JSON對象。

最后，我們可以使用TJSONPair類遍歷JSON數據：

var
Pair: TJSONPair;
Value: TJSONValue;
 begin
for Pair in JSON do
begin
Value := Pair.JsonValue;
//處理JSON數據項
end;

這段代碼中，我們使用for循環遍歷JSON數據項。每次迭代，我們通過TJSONPair.JsonValue屬性獲取JSON數據項的值，然后可以繼續處理。

在本文中，我們介紹了如何在Delphi中使用JSON獲取Web數據。我們使用TNetHTTPClient建立HTTP連接，使用TJSONObject解析JSON數據，使用TJSONPair遍歷JSON數據項，從而得到我們需要的數據。