FloatIsNegative Function
Returns True if X is Negative, ie X < -ESBTolerance.

Unit
QESBPCSMath

Declaration
Function FloatIsNegative(const X: Extended): Boolean;

Description
For Values with large negative exponents, ESBTolerance will need to be changed to a smaller value.

Parameters
Float to process.

Returns
X <= -ESBTolerance.

Category
Comparison between Integers and Floats

Implementation

function FloatIsNegative (const X: Extended): Boolean;
begin
     Result := (X <= -ESBTolerance);
End;


HTML generated by Time2HELP
http://www.time2help.com