在Delphi中，將日期格式化為JSON格式是一個常見的需求。 在Delphi中，我們可以使用TJSONWriter來輕松地將日期格式化為JSON字符串。

var
writer: TJSONWriter;
date: TDateTime;
json: string;
begin
// 創建writer實例
writer := TJSONWriter.Create;
try
// 將日期格式化為JSON字符串
date := Now; // 獲取當前日期
writer.WriteDateTime('date', date);
json := writer.ToString; // 將writer轉換為字符串
// 顯示JSON字符串
ShowMessage(json);
finally
// 釋放writer實例
writer.Free;
end;
end;

在上面的代碼中，我們首先創建了一個TJSONWriter實例。 然后，我們獲取當前日期并將其作為參數傳遞給WriteDateTime方法。 然后，我們將writer轉換為字符串，并在ShowMessage方法中顯示JSON字符串。

如果您想使用自定義的日期格式，可以使用TJSONUtil中的FormatDateTime方法。 在此方法中，您可以指定日期格式，如下所示：

var
writer: TJSONWriter;
date: TDateTime;
json: string;
begin
// 創建writer實例
writer := TJSONWriter.Create;
try
// 定義日期格式
TJSONUtil.DateTimeFormat := 'yyyy-mm-dd hh:nn:ss';
// 將日期格式化為JSON字符串
date := Now; // 獲取當前日期
writer.WriteDateTime('date', date);
json := writer.ToString; // 將writer轉換為字符串
// 顯示JSON字符串
ShowMessage(json);
finally
// 釋放writer實例
writer.Free;
end;
end;

在上面的代碼中，我們首先定義了一個自定義的日期格式。 然后，我們將當前日期格式化為JSON字符串，然后將它轉換為字符串，并在ShowMessage方法中顯示JSON字符串。

TJSONWriter是Delphi中一個很有用的工具，它可以幫助我們輕松地將日期格式化為JSON格式。 如果您需要在項目中使用JSON格式日期，使用TJSONWriter來格式化它是一個不錯的選擇。