x.xxxx 不是有效的浮点数。语言/本地语言之间的转换

Question

我有一位西班牙用户在执行此操作时收到无效浮点错误。

var
  S : String;
  R : Real;
begin
  S := '3.12345';
  R := StrToFloat(S); //- Exception here.

其原因是他的位置使用 , 作为小数位！
我怎样才能安全地将上面的字符串转换为用户的浮点数而不被轰炸。

Answer 1

滚动您自己的 StrToFloat 版本

function StrToFloat_UK(const AStr: string): Float;
var
  FS: TFormatSettings;
begin
  FS.Create('en-UK');
  Result:= StrToFloat(AStr, FS): 
end;

并使用它代替 StrToFloat。

Answer 2

将 StrToFloat 的第二个重载与将 DecimalSeparator 设置为 . 的 TFormatSettings 结合使用。

Answer 3

您可以使用过程 val，它会忽略本地系统设置。

var
S : String;
R : Real;
Test: Integer;
begin
  S := '3.12345';
  Val(S, R, Test);
end;

Answer 4

如果您知道字符串使用.作为小数点分隔符，那么您应该执行类似

procedure TForm1.FormCreate(Sender: TObject);
begin
  Application.UpdateFormatSettings := false;
  DecimalSeparator := '.';
end;

The line

Application.UpdateFormatSettings := false;

is very important 的操作。该属性的默认值为true，在这种情况下，DecimalSeparator 变量可以随时恢复为其默认值（例如,） ，例如当您切换用户时。