Zitat von
SteffenSchm:
In der
Unit Math gibt es (zumindest in Delphi2009) die Funktion...
sowas kann man sich mathematisch auch selber herleiten
MitZweiNachkommastellen := Round(R * 100) / 100;
für 4 Nachkommastellen wäre es 10000, also 4 Nullen usw.
und über 'nen Logarithmus kann man sich das ganze auch noch aufbauen
Delphi-Quellcode:
gerundet := Round(R * IntPower(10, Nachkommastellen)) / IntPower(10, Nachkommastellen);
// bzw.
temp := IntPower(10, Nachkommastellen);
gerundet := Round(R * temp) / temp;
aber in diesem Fall reicht ihm wohl eine der oben schon genannten StringFunktionen
