如何使用TFormatSettings.Create而不是特定于平台?

cro*_*don 7 delphi delphi-xe

我在Delphi XE中有以下内容:

fSettings := TFormatSettings.Create(LOCALE_USER_DEFAULT);
Run Code Online (Sandbox Code Playgroud)

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

W1002 Symbol 'Create' is specific to a platform
Run Code Online (Sandbox Code Playgroud)

这样做的正确方法是什么,所以我没有得到警告?

RRU*_*RUZ 13

你有两个选择

1)使用使用字符串而不是a的重载版本 TLocaleID

class function Create(const LocaleName: string): TFormatSettings; overload; static;
Run Code Online (Sandbox Code Playgroud)

2)在本地禁用警告

{$WARN SYMBOL_PLATFORM OFF}
    fSettings := TFormatSettings.Create(LOCALE_USER_DEFAULT);
{$WARN SYMBOL_PLATFORM ON}
Run Code Online (Sandbox Code Playgroud)

  • 选项3.全局禁用警告.如果你从来没有为Windows以外的平台构建,那么启用它就没什么意义了. (6认同)