Zahl soll nur zwei kommastellen haben

[Binärbaum]

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? )