Fehler bei StrToFloat(StrAlsIntegerFormatiert)

[newgro]

Dies ist der Testfall. Und der geht auch wieder nicht. So langsam denke ich an Selbstmord (

Delphi-Quellcode:

procedure TestTfrm_budgets.TestgetFormatted1;
var
  ReturnValue: Real;
  decPlaces: Integer;
  value: string;
begin
  value:='1.000,00';
  ReturnValue := getFormatted(value, decPlaces);
  Assert(ReturnValue=1000.00, 'Oops');
end;

function TestTfrm_budgets.getFormatted(value: String; decPlaces: Integer): Real;
var toFormat: Real;
    str: String;
begin
  if value = '' then
    toFormat:= 0
  else begin
    str:= StringReplace(value, '.', '', [rfReplaceAll]);
    toFormat:= StrToFloat(value);
  end;
  result:=StrToFloat(format('%.' + IntToStr(decPlaces) + 'n', [toFormat]));
end;