Delphi 是一種強(qiáng)類型的編程語言，具有良好的可擴(kuò)展性、可重用性和可維護(hù)性。同時，它也支持 JSON 讀寫操作，這對于當(dāng)前數(shù)據(jù)交換格式越來越多地采用 JSON 格式來說，非常有用。

首先，我們需要使用 Delphi 的 TJSONObject 和 TJSONValue 類型來解析 JSON 數(shù)據(jù)。TJSONObject 代表 JSON 對象，而 TJSONValue 則可以代表以 JSON 形式表示的值。

var
json: TJSONObject;
value: TJSONValue;
begin
json := TJSONObject.Create;
try
json.Parse('{"name":"John","age":30,"city":"New York"}');
value := json.GetValue('name');
if Assigned(value) then
ShowMessage(value.Value); // 輸出 John
value := json.GetValue('age');
if Assigned(value) then
ShowMessage(value.Value); // 輸出 30
value := json.GetValue('address'); // 未定義的屬性，返回 nil
if Assigned(value) then
ShowMessage(value.Value); // 不會執(zhí)行該語句
finally
json.Free;
end;
end;

上面的代碼我們解析了 JSON 數(shù)據(jù){"name":"John","age":30,"city":"New York"}，首先通過TJSONObject.Create實(shí)例化出 JSON 對象，然后使用Parse方法解析 JSON 字符串，返回值是一個TJSONValue類型的對象。

接著，我們通過GetValue方法獲取 JSON 對象中指定屬性的值，例如獲取name的值為John。

需要注意的是，如果要獲取的屬性不存在，GetValue方法會返回一個 nil 指針，我們在使用前需要進(jìn)行非空判斷。

以上就是 Delphi 使用 JSON 進(jìn)行取值的基本方法，希望對大家有所幫助。