Delphi是一種非常流行的編程語言，它與JSON數據格式的操作非常方便。以下是一個簡單的例子，在Delphi中獲取JSON數據。

//使用Rest.Client獲取JSON數據
procedure GetJSONData();
var
LClient: TRESTClient;
LRequest: TRESTRequest;
LResponse: TRESTResponse;
LJSON: TJSONObject;
begin
LClient := TRESTClient.Create(nil);
LClient.BaseURL := 'https://jsonplaceholder.typicode.com/todos/1';
LRequest := TRESTRequest.Create(nil);
LRequest.Method := rmGET;
LRequest.Client := LClient;
LResponse := TRESTResponse.Create(nil);
LRequest.Response := LResponse;
LRequest.Execute;
LJSON := TJSONObject.ParseJSONValue(LResponse.Content) as TJSONObject;
ShowMessage(LJSON.GetValue('title').Value);
LJSON.Free;
LResponse.Free;
LRequest.Free;
LClient.Free;
end;

在上面的例子中，我們使用了Rest.Client組件來獲取JSON數據。首先，我們實例化一個TRESTClient對象，并設置它的BaseURL屬性為JSON數據的URL。然后，我們實例化一個TRESTRequest對象來執行GET請求。將LClient設置為TRESTRequest的客戶端，并將LResponse設置為TRESTRequest的響應。最后，我們執行請求，并使用TJSONObject.ParseJSONValue方法將響應內容轉換為TJSONObject對象。

通過調用TJSONObject的GetValue方法，我們可以獲取JSON數據中的值。在這個例子中，我們獲取了'title'鍵的值，并在消息框中顯示了它。

如果您需要操作大量JSON數據，在Delphi中使用JSON操作非常簡單且方便。借助一些簡單的代碼，我們能夠實現非常多的功能。希望這篇文章有助于您更好地理解Delphi中的JSON操作。