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

Question

我有一个西班牙语用户正在invalid floating point error这样做

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用一个TFormatSettings已经DecimalSeparator设定 ..