Функция PointsEqual – сравнивает два значения TPoint на предмет равенства

Функция PointsEqual в Delphi сравнивает два значения TPoint на предмет равенства.

Функция PointsEqual: Сравнение различных и идентичных точек

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;