paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-19 23:19:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Added RoundTo and SimpleRoundTo

Browse Source 
git-svn-id: trunk@5587 -
This commit is contained in:
michael 2006-12-13 20:25:20 +00:00
parent f4b44b8a97
commit 4e1fcbed2c
1 changed files with 92 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

92
rtl/objpas/math.pp
View File

@ -223,6 +223,28 @@ function SameValue(const A, B: Double; Epsilon: Double): Boolean;
{$endif}
function SameValue(const A, B: Single; Epsilon: Single): Boolean;
type
TRoundToRange = -37..37;
{$ifdef FPC_HAS_TYPE_DOUBLE}
function RoundTo(const AValue: Double; const Digits: TRoundToRange): Double;
{$endif}
{$ifdef FPC_HAS_TYPE_EXTENDED}
function RoundTo(const AVAlue: Extended; const Digits: TRoundToRange): Extended;
{$endif}
{$ifdef FPC_HAS_TYPE_SINGLE}
function RoundTo(const AValue: Single; const Digits: TRoundToRange): Single;
{$endif}
{$ifdef FPC_HAS_TYPE_SINGLE}
function SimpleRoundTo(const AValue: Single; const Digits: TRoundToRange = -2): Single;
{$endif}
{$ifdef FPC_HAS_TYPE_DOUBLE}
function SimpleRoundTo(const AValue: Double; const Digits: TRoundToRange = -2): Double;
{$endif}
{$ifdef FPC_HAS_TYPE_EXTENDED}
function SimpleRoundTo(const AValue: Extended; const Digits: TRoundToRange = -2): Extended;
{$endif}
{ angle conversion }
@ -2198,6 +2220,76 @@ begin
end;
{$endif}
{$ifdef FPC_HAS_TYPE_DOUBLE}
function RoundTo(const AValue: Double; const Digits: TRoundToRange): Double;
var
RV : Double;
begin
RV:=IntPower(10,Digits);
Result:=Round(AValue/RV)*RV;
end;
{$endif}
{$ifdef FPC_HAS_TYPE_EXTENDED}
function RoundTo(const AVAlue: Extended; const Digits: TRoundToRange): Extended;
var
RV : Extended;
begin
RV:=IntPower(10,Digits);
Result:=Round(AValue/RV)*RV;
end;
{$endif}
{$ifdef FPC_HAS_TYPE_SINGLE}
function RoundTo(const AValue: Single; const Digits: TRoundToRange): Single;
var
RV : Single;
begin
RV:=IntPower(10,Digits);
Result:=Round(AValue/RV)*RV;
end;
{$endif}
{$ifdef FPC_HAS_TYPE_SINGLE}
function SimpleRoundTo(const AValue: Single; const Digits: TRoundToRange = -2): Single;
var
RV : Single;
begin
RV:=IntPower(10,Digits);
Result:=Trunc((AValue/RV)+0.5)*RV;
end;
{$endif}
{$ifdef FPC_HAS_TYPE_DOUBLE}
function SimpleRoundTo(const AValue: Double; const Digits: TRoundToRange = -2): Double;
var
RV : Double;
begin
RV:=IntPower(10,Digits);
Result:=Trunc((AValue/RV)+0.5)*RV;
end;
{$endif}
{$ifdef FPC_HAS_TYPE_EXTENDED}
function SimpleRoundTo(const AValue: Extended; const Digits: TRoundToRange = -2): Extended;
var
RV : Extended;
begin
RV:=IntPower(10,Digits);
Result:=Trunc((AValue/RV)+0.5)*RV;
end;
{$endif}
end.