// For n digits:
Delphi-Quellcode:
Function RoundedReal(n:Double; count:Integer):Double;
// count: Anzahl der Stellen nach dem Komma
var multi:Double;
begin
multi := IntPower(10, count);
n := Round(n * multi);
result := n / multi;
end;
// IntPower erfordert die
Unit 'Math'