Hallo
Wie kann ich in lazarus auf bestimmte stellen nach dem komma runden?
In Delphi gibt es den befehl roundto den habe ich jedoch in lazarus(freepascal) nicht gefunden.
danke für antworten
gruss
runden
-
- Beiträge: 6079
- Registriert: Do 21. Sep 2006, 07:51
- OS, Lazarus, FPC: iWinux (L 1.x.xy FPC 2.y.z)
- CPU-Target: AVR,ARM,x86(-64)
- Wohnort: Dessau
- Kontaktdaten:
In meiner Utils unit die auch hier im Board zu finden ist gibts ne RoundTO implementierung
Code: Alles auswählen
function RoundTo(const AValue : extended ; const ADigit : TRoundToRange) : extended ;
var X : extended ; i : integer ;
begin
X := 1.0 ;
for i := 1 to Abs(ADigit) do X := X * 10 ;
if ADigit<0 then
Result := Round(AValue * X) / X
else
Result := Round(AValue / X) * X;
end;
W.m.k.A.h.e.m.F.h. -> http://www.gidf.de/