在 Firemonkey 中打印时客户端的格式设置正在更改

Question

我有一个数据快照服务器和客户端。服务器系统有十进制分隔符“.”。我不知道我的客户会有什么，所以我在我的程序中更改它。

FormatSettings.DecimalSeparator:='.';
FormatSettings.ThousandSeparator:=' ';

现在，当我从客户端打印时，FormatSettings 恢复为默认值。

  Printer.ActivePrinter.SelectDPI(600,600);
  //formatsettings.Decimalseperator is now ","

这是什么行为？这是一个错误吗？

Bonus Q：您如何为客户端和服务器保持相同的格式设置？

Answer 1

FormatSettings 是全局变量。它可以在任何地方更改，所有使用它的代码都会受到影响。

使用TFormatSettings 的正确方法是，在进行格式化时不要依赖全局FormatSettings 变量并使用您自己的实例。这样您就可以确保您无法控制的其他代码不会更改它并弄乱您的格式。

此外，您最好将固定格式设置仅用于存储目的，当您向用户展示您的数据时，您可以根据他们的区域设置使用格式设置，或者更好地允许他们自定义格式设置在您的应用程序中用于演示目的。

var
  MyFormat: TFormatSettings;

MyFormat := TFormatSettings.Create;
MyFormat.DecimalSeparator:='.';
MyFormat.ThousandSeparator:=' ';

然后在所有格式化函数中使用它作为最后一个参数。

对于使用全局 FormatSettings 变量的函数，唯一可以确保格式化正确的方法是在调用格式化函数之前将全局 FormatSettings 变量设置为您的值，并在完成后恢复旧值.

仅供记录 StrToFloat 确实有过载，您可以在其中传递自己的设置。

function StrToFloat(const S: string; const AFormatSettings: TFormatSettings): Extended;