Zitat von
SteffenSchm:
In der
Unit Math gibt es (zumindest in Delphi2009) die Funktion
Delphi-Quellcode:
function RoundTo(const AValue: Extended;
const ADigit: TRoundToEXRangeExtended): Extended;
Ich glaube diese Funktion macht exakt das was Du suchst.
ich danke euch, leider gibts die Funtion in Lazarus nicht
alternativ könnte man vieleicht das editfeld formatieren, falls das irgendwie geht ohne gleich Tmaskedit zu verwenden.
Gruss KH