Delphi中操作JSON格式數(shù)據(jù)是非常方便的，可以通過TJSONObject、TJSONPair、TJSONValue等類來實(shí)現(xiàn)。其中，TJSONObject代表JSON對象，TJSONPair代表鍵值對，TJSONValue則代表JSON值。

當(dāng)使用一個Web服務(wù)時，通常會返回一個JSON格式的字符串。如果這個JSON字符串中包含了一個result字段，我們可以通過如下代碼來獲取這個字段的值：

var
LJSONObj: TJSONObject;
LJSONValue: TJSONValue;
LResult: string;
begin
LJSONObj := TJSONObject.ParseJSONValue(AResponseContent) as TJSONObject;
try
if LJSONObj.TryGetValue('result', LJSONValue) then
LResult := LJSONValue.Value;
finally
LJSONObj.Free;
end;
end;

以上代碼首先將返回的JSON字符串解析為TJSONObject對象，然后通過TryGetValue方法獲取result字段對應(yīng)的TJSONValue對象，最后通過Value屬性獲取字段的值。

需要注意的是，代碼中對TJSONObject進(jìn)行了try…finally釋放，避免內(nèi)存泄露問題。