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

[Bodenseematze]

Zitat:

Zitat von Andreas13 (Beitrag 1524465)

Frac(..) ist in System.pas deklariert:

Delphi-Quellcode:

function Frac(const X: Extended): Extended;
begin
  Result := X - Int(X);
end;

Bei mir nicht (direkt); da steht dann folgendes drin:

Delphi-Quellcode:

procedure       _FRAC;
asm
        FLD     ST(0)
        SUB     ESP,4
        FNSTCW  [ESP].Word     // save
        FNSTCW  [ESP+2].Word   // scratch
        FWAIT
        OR      [ESP+2].Word, $0F00  // trunc toward zero, full precision
        FLDCW   [ESP+2].Word
        FRNDINT
        FWAIT
        FLDCW   [ESP].Word
        ADD     ESP,4
        FSUB
end;

wie der dann zu "Frac" (ohne Unterstrich am Anfang) kommt, weiß ich nicht...

[himitsu]

Vieles Assemblerzeugs wurde "inzwischen" abgeschafft und druch Pure-Pascal ersetzt, bzw. mit alternativen Varianten versehen,

wegen dem 64 Bit-Compiler (Windows)
und auch für die anderen Platformen ala Linux, Android und iOS/OSX.

[jaenicke]

Zitat:

Zitat von Bodenseematze (Beitrag 1524514)

Zitat:

Zitat von jaenicke (Beitrag 1524477)

Bei mir kommen unter Delphi 7 jedenfalls die erwarteten Ergebnisse heraus.

Wie oben gesagt, das hängt tatsächlich von den berechneten Werten ab - mit manuellen, hart kodierten Werten kommen bei mir (meistens :wink:) auch die erwarteten Ergebnisse zurück.

Wie dem auch sei - ich bin aktuell ganz zufrieden mit meinen Lösungen und Danke Euch allen für Eure Hilfestellungen! :thumb:

Du könntest auch die binären Daten, sprich die einzelnen Bytes, zeigen. Dann ließe sich das auch ohne die Rechnung zu kennen reproduzieren.