在Delphi中，JSON是一種非常常見的數據格式。 JSON是一種輕量級的數據交換格式，它的結構清晰易于閱讀，同時在各種編程語言中都能夠很好地進行解析和生成。在一些應用程序中，我們需要將 JSON 轉換為字符串。本文將介紹如何在 Delphi 中實現 JSON 轉換為字符串。

Delphi 10.4 中提供了一個名為 TJSONUtils 的單元，該單元提供了許多有用的方法來解析和生成 JSON 數據。在此單元中，我們可以使用以下代碼將 JSON 轉換為字符串：

var
Data: TJSONObject;
Str: string;
begin
Data := TJSONObject.Create;
try
// 添加 JSON 數據
Data.AddPair('name', 'Tom');
Data.AddPair('age', TJSONNumber.Create(18));
Data.AddPair('address', 'China');
// 將 JSON 轉換為字符串
Str := Data.ToString;
finally
Data.Free;
end;
end;

在上面的代碼中，我們首先創建了一個 TJSONObject 對象，然后使用 AddPair 方法向其中添加 JSON 數據。最后，我們調用了 ToString 方法將 JSON 轉換為字符串。需要注意的是，使用完 TJSONObject 對象后，需要手動釋放內存。

除了上述方法外，Delphi 還提供了許多其他方法來實現 JSON 轉換為字符串。例如，我們可以使用 TJson.JsonToObject 方法將 JSON 字符串轉換為 TJSONObject 對象，然后使用上述代碼將其轉換回字符串。

總之，在 Delphi 中實現 JSON 轉換為字符串非常方便。我們可以使用 TJSONObject 對象的 ToString 方法和其他相關的方法來實現這個功能。