Hi
Zitat:
Delphi-Quellcode:
Weight := 2.4353000;
Weight := Weight * Power( 10, Präzision);
Double1 := Weight ;
Double2 := Trunc( Weight );
Versuchmal folgendes :
Double2 := Trunc( Weight+0.00001);
Der Grund ist, das es bei Double oft eine Ungenauigkeit im Bitmuster gibt (niederwertigste Stelle) Ich hab mal noch unter Turbo mir die Zähne dran ausgebissen, eine Abfrage
If 4/4=Trunc(4/4) then // Zahlen waren natürlich Variablen
nie das richtige Ergebnis brachte.
Ich kann mich auch irren, aber den Versuch solltest du mal starten. Die Zahl, die du addierst, kann so klein sein, das sie dein Ergebnis nicht verfälscht.
Gruß oldmax
Noch ist mein Rechner mir zu Diensten.... ansonsten habe ich die Macht ihn zu vernichten !