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