Delphi是一種強大的編程語言，可以被用于創(chuàng)建各種應用程序。現(xiàn)在越來越多的應用程序需要與JSON數(shù)據(jù)進行交互，而在Delphi中提取JSON數(shù)據(jù)節(jié)點的方法非常簡單。

首先，需要使用Delphi自帶的TJSONObject類來解析JSON字符串。例如：

var
jsonStr: string;
json: TJSONObject;
node: TJSONValue;
begin
jsonStr := '{"name": "John", "age": 30, "city": "New York"}';
json := TJSONObject.ParseJSONValue(jsonStr) as TJSONObject;
node := json.GetValue('name');
ShowMessage(node.Value);
end;

上面的代碼首先定義了一個JSON字符串，然后使用TJSONObject類的ParseJSONValue方法將其解析為TJSONObject對象。接下來使用GetValue方法獲取指定節(jié)點的TJSONValue對象，再使用Value屬性獲取其值，并將其顯示出來。

如果要獲取JSON數(shù)組中的節(jié)點，則需要使用TJSONArray類。例如：

var
jsonStr: string;
json: TJSONObject;
jsonArray: TJSONArray;
node: TJSONValue;
i: Integer;
begin
jsonStr := '{"students": [{"name": "John", "age": 18}, {"name": "Lisa", "age": 20}]}';
json := TJSONObject.ParseJSONValue(jsonStr) as TJSONObject;
jsonArray := json.GetValue('students') as TJSONArray;
for i := 0 to jsonArray.Count -1 do
begin
node := jsonArray.Items[i];
ShowMessage(node.GetValue('name').Value);
end;
end;

上面的代碼中，使用TJSONArray類獲取JSON數(shù)組節(jié)點，并使用Items屬性獲取數(shù)組中的每個元素。然后再通過GetValue方法獲取元素的子節(jié)點的值。

總之，在Delphi中提取JSON節(jié)點非常簡單。只需使用TJSONObject和TJSONArray類的方法即可。