Hallo,
ich habe diese Funktion:
Delphi-Quellcode:
function praemientester(summ1,summ2:double):boolean;
var summe: double;
begin
summe:=summ1 + summ2;
If (summe = 0.11) or (summe = 0.33) or (summe = 0.55) or (summe = 0.77) or
(summe = 0.99)or (summe = 1.11) or (summe = 1.33) or (summe = 1.55) or
(summe = 1.77) or (summe = 1.99)Then Result:=True
Else Result:=False;
end;
Warum liefert sie nie true zurück? Selbst wenn die Summe 0,11 ist, dann funktioniert das nicht. Liegt das an den Datentypen/Gleitkommadarstellung? Wie ändere ich das oder wie nehme ich nur die Zahlen nach dem Komma und mach dann mit den integer zahlen ne addition. Mit frac() funktionierts nicht, da bleibt die 0 stehen.
Danke
Counter