作為一種強大的編程語言，Delphi能夠快速構(gòu)建各種應用程序，包括處理JSON數(shù)據(jù)。然而，當JSON數(shù)據(jù)包含引號時，會出現(xiàn)一些問題。

{
"name": "Tom's book",
"price": "20"
}

在上面的JSON代碼中，名稱包含單引號，這將導致Delphi無法正確解析JSON數(shù)據(jù)。為了解決這個問題，我們可以使用JSON編碼器和解碼器來處理引號。

uses
System.JSON;
var
book: TJSONObject;
begin
book := TJSONObject.Create;
book.AddPair(TJSONPair.Create('name', 'Tom''s book'));
book.AddPair(TJSONPair.Create('price', '20'));
// 編碼JSON數(shù)據(jù)
Memo1.Lines.Add(book.ToJSON);
// 解碼JSON數(shù)據(jù)
book := TJSONObject.ParseJSONValue(Memo1.Lines.Text) as TJSONObject;
ShowMessage(book.GetValue('name').Value);
end;

在上面的Delphi代碼中，我們定義了一個包含單引號的JSON對象。使用TJSONObject.Create創(chuàng)建了一個名為book的JSON對象，然后添加了名稱和價格鍵值對。使用ToJSON方法將其編碼為JSON字符串，并在Memo1中顯示。接著使用ParseJSONValue方法解碼JSON字符串，并顯示名稱使用了單引號。

通過使用JSON編碼器和解碼器，Delphi可以輕松處理帶引號的JSON數(shù)據(jù)，使您的應用程序更加健壯。