Ergebnis der Suchanfrage

• Forum: Object-Pascal / Delphi-Language

  Re: Delphi & Runden

    Delphi
    by himitsu, 16. Sep 2009
  gerundetesErgebniss := (Zahl1 + (Zahl2 div 2)) div Zahl2;
  Aber das Löst ja nicht das Problem hier ... vorallem nicht vei den Variants, wo intern gerundet wird.
  
  Eventuell könnte man da die internen Funktionen der Variants hooken und dort seine eigene Roundmethode einschleusen.
• Forum: Object-Pascal / Delphi-Language

  Re: Delphi & Runden

    Delphi
    by himitsu, 15. Sep 2009
  Ich dachte mal gehört zu haben, daß man dieses Verhalten wie hier gewünscht ändern kann :gruebel:
  
  http://www.website.masmforum.com/tutorials/fptute/fpuchap1.htm#cword
  kann aber auch nichts finden
• Forum: Object-Pascal / Delphi-Language

  Re: Delphi & Runden

    Delphi
    by himitsu, 15. Sep 2009
  Round + SetRoundMode(rmNearest) = normal (Round)
  Round + SetRoundMode(rmDown) = Floor
  Round + SetRoundMode(rmUp) = Ceil
  Round + SetRoundMode(rmTruncate) = Trunc
  
  OK, dann RoundTo ... dachte das zählt auch für Round (hatte es aber auch noch nie verwendet oder getestet)
  
  
  für Set8087CW schau dich mal nach dem ASM-Befehl FLDCW um, hab jetzt auch keine direkte Beschreibung der Bitmaske...
• Forum: Object-Pascal / Delphi-Language

  Re: Delphi & Runden

    Delphi
    by himitsu, 15. Sep 2009
  Anmerkung: Die Funktionsweise von Round kann mit der Prozedur Set8087CW oder der Funktion SetRoundMode gesteuert werden.
  
  PS: dieses Verhalten nennt sich Kaufmännisches Runden