Truncate float without rounding

[kamel08]

// 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'