Fehler bei StrToFloat(StrAlsIntegerFormatiert)

[Klaus01]

Delphi-Quellcode:

function TestTfrm_budgets.getFormatted(value: String; decPlaces: Integer): Real;
var toFormat: Integer;
    str: String;
begin
  if value = '' then
    toFormat:= 0
  else begin
    str:= StringReplace(value, '.', '', [rfReplaceAll]);
    toFormat:= StrToFloat(str);  // <---- str anstelle von value
  end;
  result:=toFormat*power(10,(decplaces*-1));
end;

Nur solltest Du noch sehen, das wenn Du alle Punkte (.) mit StringReplace löscht
Du ein Problem bekommen könntest wenn Dein Programm auf einem englischen OS mit den englischen
Ländereinstellungen läuft.
Wenn Du aus der DB sowieso nur Ganzzahlwerte ausliest und die Nachkommastelle getrennt geliefert
bekommst, wäre es vielleicht sinnvoller den value mit StrToInt umzuwandeln.

Delphi-Quellcode:

var toFormat: Integer;
..
toFormat:= StrToInt(str);

[edit] sorry mkinzler, hatte Dich übersehen [/edit]

Grüße
Klaus