Trunc() probleme

[oldmax]

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