Zahl bis zu einer bestimmten Stelle runden |
|
| System | Win9x, WinNT, Win2000, WinXP, Vista, Win7 |
|---|---|
| Ab Delphi-Version | Delphi 1 |
| Letzte Änderung | 28.09.2010 |
Hier bieten sich, je nach Aufgabenstellung, mehrere Möglichkeiten an.Ohne Runden:
uses Math,...;
function RoundToPointPosition(Number : Extended; PointPos : Byte): Extended;
Var
Multi:Integer;
begin
Multi:=Trunc(IntPower(10,PointPos));
Result := Trunc(Number * Multi)/Multi;
end;
Mit Runden
uses Math,...;
function RoundToPointPosition(Number : Extended; PointPos : Byte): Extended;
Var
Multi:Integer;
begin
Multi:=Trunc(IntPower(10,PointPos));
Result := Round(Number * Multi)/Multi;
end;
Mit
function RoundToPointPosition(Number : Extended; PointPos : Byte): String;
Begin
Result:=FloatToStrF(Number,ffFixed,10,PointPos);
End;
kann das Ergebnis in einen entsprechenden String umgewandelt werden.
Ähnliche Seiten: