Fehler bei StrToFloat(StrAlsIntegerFormatiert)

[newgro]

Hatte

Delphi-Quellcode:

function Tfrm_budgets.getFormatted(value: String; decPlaces: Integer): Real;
var toFormat: Real;
f: TFormatSettings;
begin
  if value = '' then
    toFormat:= 0
  else begin
    f.ThousandSeparator:= '.';
    f.DecimalSeparator:= ',';
    toFormat:= StrToFloat(value, f);
  end;
  result:=StrToFloat(format('%.' + IntToStr(decPlaces) + 'n', [toFormat]));
end;

probiert und es ging nicht.