Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.771 Beiträge
 
Delphi 10.4 Sydney
 
#23

Re: Fehler bei StrToFloat(StrAlsIntegerFormatiert)

  Alt 16. Apr 2007, 18:04
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
Klaus
  Mit Zitat antworten Zitat