GreaterFloat Routines
Returns True if X1 > X2.

Unit
QESBPCSMath

Overloaded Variants
Function GreaterFloat(const X1, X2: Extended): Boolean;
Function GreaterFloat(const X1, X2: Double): Boolean;
Function GreaterFloat(const X1, X2: Single): Boolean;

Declaration
Function GreaterFloat(const X1, X2: Extended): Boolean;

Description
For Values with lots of significant figures, ESBPrecision may need to be changed to a smaller value - ESBDoublePrecision for Doubles and ESBSinglePrecision for Singles.

Parameters
X1 First Float to process.
X2 Second Float to process.

Returns
X1 - X2 >= ESBTolerance.

Category
Comparison between Integers and Floats

Implementation

function GreaterFloat (const X1, X2: Extended): Boolean;
begin
     Result := X1 - X2 > ExtendedPrecision (X1, X2);
End;

Declaration
Function GreaterFloat(const X1, X2: Double): Boolean;

Implementation

function GreaterFloat (const X1, X2: Double): Boolean;
begin
     Result := X1 - X2 > DoublePrecision (X1, X2);
End;

Declaration
Function GreaterFloat(const X1, X2: Single): Boolean;

Implementation

function GreaterFloat (const X1, X2: Single): Boolean;
begin
     Result := X1 - X2 > SinglePrecision (X1, X2);
End;


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