Delphi是一種強大的編程語言，支持多種數據格式，包括JSON。

在處理JSON數據時，有時候需要去掉屬性值中多余的引號，這可以通過Delphi的JSON庫中的一個函數來實現。

procedure TForm1.Button1Click(Sender: TObject);
var
JsonString: string;
JsonObj: TJSONObject;
JsonValue: TJSONValue;
begin
JsonString := '{"name":"John Doe","age":"25"}';
JsonObj := TJSONObject.ParseJSONValue(JsonString) as TJSONObject;
for JsonValue in JsonObj do
if JsonValue is TJSONString then
TJSONString(JsonValue).Value := Copy(TJSONString(JsonValue).Value, 2,
Length(TJSONString(JsonValue).Value) - 2);
Memo1.Lines.Add(JsonObj.ToString);
end;

如上代碼所示，在解析JSON數據后，循環遍歷JSON對象，并判斷每個屬性值是否為字符串，若是則通過Copy函數去掉開頭和結尾的引號，最后將修改后的JSON對象輸出到Memo組件中。

使用Delphi處理JSON數據可以輕松實現數據交互和數據處理，更加方便高效。