|
Registriert seit: 30. Nov 2005
Ort: München
5.755 Beiträge
Delphi 10.4 Sydney
|
Re: Nachkommastellen vom Typ Real extrahieren und dann runde
18. Feb 2006, 15:44
mit
function Frac(X: Extended): Extended;
sollte es auch gehen.
Anschliessend noch runden mit.
function RoundTo(const AValue: Double; const ADigit: TRoundToRange): Double;
Grüße
Klaus
Klaus
|