德尔菲:如何覆盖shortdateformat?

我同意弗朗索瓦的观点,但我想提出另一个选择:设置

Application.UpdateFormatSettings := False;

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

拥有自己的格式设置,并将其明确地用于所有格式例程,而不是使用隐式版本。

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

function DateTimeToStr(const DateTime: TDateTime): string;

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

更新 :为了避免应用程序对区域设置更改做出响应,可以更改 Application.UpdateFormatSettings 到 False .
默认为 True 在里面 TApplication.Create .
但要注意,这并不是所有设置的100%防弹,因为有些例程直接获得线程区域设置。