Delphi XE5 和格式设置

Question

我正在更改我的应用程序中的 FormatSettings。假设计算机的本地货币设置为 $，我想在我的应用程序中使用 €。我可以使用以下代码更改它。

FormatSettings.CurrencyString := '€';

但是，如果我转到区域设置并在那里进行更改，我的 FormatSettings 会恢复原状。我相信应该有办法保证它的安全。你知道解决这个问题的方法吗？

Answer 1

您可以通过避免全局共享格式设置变量 FormatSettings 来解决这个问题，该变量已被弃用多年。

而是创建并填充 TFormatSettings 类型的局部变量。将其传递给依赖格式设置的所有函数。只有全局格式设置变量会在用户进行更改时更新。

var
  fs: TFormatSettings;
....
fs := TFormatSettings.Create;
fs.CurrencyString := '€';

如果它真的永远不应该改变，您可能更愿意将其设置为您在启动时设置然后永远不要修改的全局变量。