Delphi：如何重写 ShortDateFormat？

Question

我意识到 ShortDateFormat 变量代表用户的偏好。

我还意识到，如果设置发生更改，Delphi 将使用用户的设置自动刷新 ShortDateFormat 变量。

mm/dd/yy

我有一位客户希望所有“短日期”都显示在特定的位置，但他们不希望显示他们的 Windows 首选项。

mm/dd/yyyy

考虑到可以随时重置，在我的应用程序中全局更改 ShortDateFormat 变量的好方法是什么？

注意：包含代码格式的示例日期格式掩码，以使帖子更具视觉吸引力

Answer 1

拥有您自己的 FormatSettings 并将其与所有格式例程一起显式使用，而不是使用隐式版本。

它还具有线程安全的优点。

function DateTimeToStr(const DateTime: TDateTime): string;

function DateTimeToStr(const DateTime: TDateTime; const FormatSettings: TFormatSettings): string;

更新：为避免您的应用程序对区域设置更改做出反应，您可以将 Application.UpdateFormatSettings 更改为 False。
在 TApplication.Create 中默认为 True。
但请注意，这并不是对所有设置 100% 安全，因为某些例程会直接获取 ThreadLocale。

Answer 2

我同意 François 的观点，但我想提一下另一个选项：设置

Application.UpdateFormatSettings := False;

为防止在 Windows 中全局更改格式设置时自动更新格式设置。