RoundToExt

Parameter

(X: Extended; RoundMode, Digit : Integer) : Int64;

Beschreibung

Die Funktion rundet den Wert von X, mit dem gewählten Verfahren RoundMode, auf den nächsten Integer-Wert. X ist ein Ausdruck des Typs Real. Round gibt einen Int64-Wert mit dem auf die nächste Ganzzahl gerundeten Wert von X zurück. Liegt X genau in der Mitte zwischen zwei ganzen Zahlen, wird immer die gerade Zahl zurückgeliefert. Dieses Vorgehen beim Runden wird auch als "Banker’s Rounding" bezeichnet. Liegt der gerundete Wert von X außerhalb des Int64-Wertebereichs, wird ein Laufzeitfehler ausgelöst, der mit einer EInvalidOp-Exception behandelt werden kann.

ADigit ist die Potenz von 10, auf die gerundet werden soll. Dies kann ein beliebiger Wert im Bereich von -20 bis 20 sein. 

RoundMode Optionen: 

Typ 
rmNearestRundet zum nächsten Wert.
rmDownRundet gegen minus unendlich.
rmUpRundet gegen plus unendlich.
rmTruncateKürzt den Wert ab. Positive Werte werden auf-, negative Werte abgerundet.

Beispiel

ResVar := RoundToExt(12.745, rmNearest,-2);   {ResVar = 12.75}

Ausdruck

Wert

RoundToExt(1234567,rmNearest,3)

1235000

RoundToExt(1,234,rmNearest,-2)

1,23

RoundToExt(1,235,rmNearest,-2)

1,24

RoundToExt(1,245,rmNearest,-2)

1,25