在 Delphi 中操作 JSON 值非常方便，可以使用 TJSONObject 和 TJSONValue 類來(lái)處理 JSON 字符串。下面是一些示例代碼：

var
jsonObj: TJSONObject;
jsonValue: TJSONValue;
jsonString: string;
begin
// 創(chuàng)建一個(gè) JSON 對(duì)象
jsonObj := TJSONObject.Create;
// 添加屬性
jsonObj.AddPair('name', '張三');
jsonObj.AddPair('age', TJSONNumber.Create(18));
jsonObj.AddPair('gender', TJSONString.Create('男'));
// 轉(zhuǎn)換成 JSON 字符串
jsonString := jsonObj.ToString;
// 解析 JSON 字符串
jsonValue := TJSONObject.ParseJSONValue(jsonString);
// 獲取屬性
ShowMessage(jsonValue.GetValue('name'));
// 釋放內(nèi)存
jsonValue.Free;
jsonObj.Free;
end;

在上面的代碼中，我們創(chuàng)建了一個(gè) JSON 對(duì)象，并添加了一些屬性。然后將 JSON 對(duì)象轉(zhuǎn)換成了 JSON 字符串，并通過(guò) TJSONObject.ParseJSONValue 方法解析出了 JSON 值。最后通過(guò) GetValue 方法獲取了屬性的值。

除了 TJSONObject 和 TJSONValue 類，Delphi 還提供了一些方便的函數(shù)來(lái)操作 JSON 值。例如，使用 TJSONObject.ParseJSON 方法可以將 JSON 字符串轉(zhuǎn)換成 JSON 對(duì)象，使用 TJSONString.Create 方法可以創(chuàng)建一個(gè)字符串值。更多的操作和用法可以參考 Delphi 的文檔。