Delphi-Help

Описание

function PointsEqual ( const Point1, Point2 : TPoint ) : Boolean;

Функция PointsEqual сравнивает значения параметров Point1 и Point2, и возвращает Истину (True), если они равны.

Если любое значение X или Y каждой точки различно, то будет возвращена Ложь (False).

Пример кода

var
start, finish : TPoint;

begin
// Установка начальной и конечной точек
start  := Point(1, 2);
finish := Point(3, 4);

// Начальная точка равна конечной точке?
if PointsEqual(start, finish)
then ShowMessage('1,2 =  3,4')
else ShowMessage('1,2 <> 3,4');

// Попытка использования PointsEqual с идентичными значениями
if PointsEqual(Point(2,9), Point(2,9))
then ShowMessage('2,9 =  2,9')
else ShowMessage('2,9 <> 2,9');
end;

1,2 <> 3,4
2,9 = 2,9

Примечание