Compare(Value1: Double; Value2: Double): Integer;
Value1. Первое сравниваемое значение вещественного типа;
Value2. Второе сравниваемое значение вещественного типа.
Метод Compare осуществляет сравнение двух вещественных чисел без учета точности.
Метод возвращает значение "1", если Value1>Value2, "0", если Value1=Value2 и "-1", если Value1<Value2.
Sub UserProc;
Var
x1, x2: Double;
i: Integer;
Begin
x1 := Math.Rand;
x2 := Math.Rand;
i := Double.Compare(x1, x2);
End Sub UserProc;
После выполнения примера в переменной «i» будет содержаться признак сравнения двух случайных вещественных чисел.
См. также: