Currency macht sich da wohl am Besten = das hat ja schon nur Nachkommastellen ...
Runden:
RealMit1 := Round(RealMitVielen * 10) / 10;
[add] Ach ja ^^ ... RoundTo macht intern auch nichts anderes. [/add]
PS: Currency ist intern ein Integer und wir vom Compiler entsprechende gerundet (Integer / 1000 = Currency)
Du kannst also auch selber einen Integer verwenden und brauchst beim Zuweisen halt immer nur *10 und beim auslesen /10 su machen.
Delphi-Quellcode:
Integer := Round(Wert * 10);
Wert := Interger / 10;