delphi - 在 float 中存储 TDateTime 时避免区域设置冲突？

Question

我得到了 TDateTime thing通过使用 float 变量将它们存储在文件中来修复。然而，现在我面临一个新问题:无效浮点 - 很可能是因为逗号分隔符。

如何在程序中设置默认分隔符？或者还有其他办法吗？

Answer 1

在调用 StrToFloat 和 FloatToStr 时，您可以使用 TFormatSettings 记录指定小数点分隔符。您必须决定使用什么并坚持下去。这是带有 .

的示例代码

var
    d: TDateTime;
    s: string;
    fs: TFormatSettings;
begin
    d := Now();
    fs.DecimalSeparator := '.';
    s := FloatToStr(d, fs);
end;

另一个选择是使用 XML 标准日期时间格式。 Delphi 在 XSBuiltIns 中提供了一些函数来进行 TDateTime 与 string 之间的转换。您的值中将有一个时区偏移，因此如果您将持久的 TDateTime 从一个时区移动到另一个时区，您可能会出现一些不需要的行为。这取决于该值的用途。

var
    d: TDateTime;
    s: string;
begin
    d := Now();
    s := DateTimeToXMLTime(d);
    d := XMLTimeToDateTime(s);
end;