Man kann auch folgende Funktion verwenden, um auf eine beliebige Anzahl von Stellen zu runden:
Delphi-Quellcode:
function Runden(x: Extended; Anzahl_Stellen: Byte): Extended;
begin
Result:= Round(x * IntPower(10, Anzahl_Stellen)) / IntPower(10, Anzahl_Stellen);
end;
Ich weiß jetzt zwar nicht genau, wie groß der Bereich von Extended ist, aber es könnte zu Bereichsüberschreitungen kommen, wenn Anzahl_Stellen zu groß gewählt wird. (Allerdings ist das eher unwahrscheinlich, denn wer will schon auf -sagen wir mal- 98 Stellen nach dem Komma runden?
)