Returns -1 if X1 < X2, 0 if they are the same, 1 if X1 > X2.Unit
QESBPCSMath
Declaration
Function CompareFloat(const X1, X2: Extended): Integer;
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.
| X1 | First Float to process. | 
| X2 | Second Float to process. | 
Category
Comparison between Integers and Floats
Implementation
 
  | function CompareFloat (const X1, X2: Extended): Integer;
begin
     if SameFloat (X1, X2) then
          Result := 0
     else if X1 < X2 then
          Result := -1
     else
          Result := 1;
End; | 
Declaration
Function CompareFloat(const X1, X2: Double): Integer;Implementation
 
  | function CompareFloat (const X1, X2: Double): Integer;
begin
     if SameFloat (X1, X2) then
          Result := 0
     else if X1 < X2 then
          Result := -1
     else
          Result := 1;
End; | 
Declaration
Function CompareFloat(const X1, X2: Single): Integer;Implementation
 
  | function CompareFloat (const X1, X2: Single): Integer;
begin
     if SameFloat (X1, X2) then
          Result := 0
     else if X1 < X2 then
          Result := -1
     else
          Result := 1;
End; | 
| HTML generated by Time2HELP | 
http://www.time2help.com