function SameValue(A, B: Extended): Boolean;
SCAR Divi 3.00 > Current
Returns true if 2 extended floating point values equal each other.
begin WriteLn(SameValue(1.1, 1.1)); WriteLn(SameValue(1.1, 1.2)); end.
Output:
1 0