x.xxxx is not a valid floating point. Converting between languages/locals

Question

I have a spanish user who is getting an invalid floating point error when doing this

var
  S : String;
  R : Real;
begin
  S := \'3.12345\';
  R         


        

Answer 1

Roll your own version of StrToFloat

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

And use this in place of StrToFloat.