[fpc-pascal] testing if a float has a fractional part

Bart bartjunk64 at gmail.com
Tue May 15 13:22:13 CEST 2018

On Sun, May 13, 2018 at 3:40 PM, Jonas Maebe <jonas at freepascal.org> wrote:
> The only proper way is to use something like Math.SameValue(x, int(x)).

B.t.w. the test suite for the new Int() function (win64)

47 function SameValue(aGot, aExpected: Double): Boolean;
48 begin
49 if IsNan(aExpected) then
50 Result := IsNan(aGot)
51 else
52 Result := aGot = aExpected;
53 end;


More information about the fpc-pascal mailing list