如何在不特定于平台的情况下使用 TFormatSettings.Create？

Question

我在 Delphi XE 中有以下内容：

fSettings := TFormatSettings.Create(LOCALE_USER_DEFAULT);

但我总是在编译时收到警告：

W1002 Symbol 'Create' is specific to a platform

执行此操作的正确方法是什么，这样我就不会收到警告？

Answer 1

您有两个选择

1) 使用重载版本，该版本使用字符串而不是 TLocaleID

class function Create(const LocaleName: string): TFormatSettings; overload; static;

2）本地禁用警告

{$WARN SYMBOL_PLATFORM OFF}
    fSettings := TFormatSettings.Create(LOCALE_USER_DEFAULT);
{$WARN SYMBOL_PLATFORM ON}

Answer 2

TFormatSettings.Create 有不同的重载。带有 LCID 的是 Windows 特有的。不带任何参数的方法和将语言环境名称作为字符串的方法更可移植。

或者，如果您知道您的软件永远不会用于 Delphi for Windows 以外的任何其他用途，您可以抑制针对特定于平台的单元和过程的警告。 VCL 包含现在不受支持的平台的痕迹，例如 Linux (Kylix) 和 .NET (Delphi.NET)，并且由于它们已经死了，因此将代码移植到这些平台可能会浪费时间。

Answer 3

我的代码现在编写如下：

{$IFDEF VER220}
    FormatSettings := TFormatSettings.Create(GetThreadLocale);
{$ELSE}
    GetLocaleFormatSettings(GetThreadLocale, FormatSettings);
{$ENDIF}

您可能想要调整 IFDEF 以适应未来的版本，但它给出了这个想法。