runden

[slai]

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

[Christian]

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;

[slai]

Danke für die prompte antwort...

[slai]

Und natürlich danke viel mals für diese utils unit sieht sehr praktisch aus!!!