System.Frac / System.Int / Math.SimpleRoundTo - komische Ergebnisse

[jaenicke]

Zitat von Bodenseematze:

Achja, das ganze ist mit Delphi7 (ist ein Alt-Programm, muss ich leider immer noch verwenden), das dann unter Win10-x64 ausgeführt wird...

Ja, Delphi 7 hat einige Bugs und komische Verhaltensweisen, sowohl bei Rechenoperationen als auch bei visuellen Komponenten. Diese gehört dazu. Wenn du eine aktuellere Delphiversion verwendest, wirst du diese Ergebnisse nicht mehr bekommen.

Daher bleibt unter Delphi 7 wirklich nur eine Fremdbibliothek oder eigene Funktionen zu verwenden. Alternativ schreibst du DLLs in einer neuen Delphiversion und bindest diese ein.

[Andreas13]

Hallo Bodenseematze,
Du könntest auch die Unit AMath.pas (= Accurate floating point math unit) von unserem einstigen Gammatester (Wolfgang Ehrhardt) verwenden. Seinen umfangreichen Nachlaß mit exzellenten Routinen für präzises Rechnen findest Du entweder hier:

http://web.archive.org/web/*/wolfgang-ehrhardt.de
und auch dort:
https://github.com/maelh/www.wolfgang-ehrhardt.de

AMath.pas ersetzt komplett Delphi’s System.Math.pas und verbessert zahlreiche Fehler und Unzulänglichkeiten. Es ist kompatibel mit

"REQUIREMENTS : BP7, D2-D7/D9-D10/D12/D17-D18/D25, FPC, VP, WDOSX"

und auch mit noch neuereren Delphi-Versionen.

Ich benutze es seit vielen Jahren und bin vollkommen zufrieden damit.

[Bodenseematze]

Zitat von Andreas13:

Du könntest auch die Unit AMath.pas (= Accurate floating point math unit) von unserem einstigen Gammatester (Wolfgang Ehrhardt) verwenden.

Ich habe mir die jetzt mal angeschaut.

Zitat von Andreas13:

AMath.pas ersetzt komplett Delphi’s System.Math.pas und verbessert zahlreiche Fehler und Unzulänglichkeiten.

Das ist nicht so ganz richtig - es fehlen z.B. CompareValue, SimpleRoundTo und auch der "Typ" TRoundToRange - damit braucht man die System Math-Unit leider immer noch.

Außerdem kommt auch bei dieser beim Aufruf

Code:

AMath.Frac( 9.0 )

als Ergebnis

Code:

1.0

Wieso? Ich verstehe das nicht

Ich habe die Enterprise-Version von Delphi7 - da ist ja der Quellcode dabei, aber ich finde den Code von Frac() dort nicht...
(nur in der von SynopseRTL gepatchten Version - und dort steht "{$IFDEF NEWRTL}" drüber, was erst ab Delphi 2005 definiert ist...)

[Uwe Raabe]

Vermutlich lässt sich 9.0 nicht exakt im erforderlichen Type (Single, Double, Extended) unterbringen und es wird intern als 8.9999xxx dargestellt. Damit wird Trunc(9.0) zu 8 und Frac(9.0) zu 0.9999xxx,was wiederum als 1.0 angezeigt wird.