Справочник функций и процедур Delphi: PointsEqual

  Навигация по первой букве:

A  B  C  D  E  F  G  H  I  J  K  L  M  N  O  P  Q  R  S  T  U  V  W  X  Y  Z

  Навигация по категории:

Compiler directives, Directives, Keywords / Types, Variables, Constants / Functions, Procedures

PointsEqual
Функция
Сравнивает два значения TPoint на предмет равенства Classes unit
  function PointsEqual ( const Point1, Point2 : TPoint ) : Boolean;

Delphi Sources

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

Если любое значение X или Y каждой точки различно, то будет возвращена Ложь (False).
Похожие команды
Bounds  Передаёт координаты вершин объекта типа TRect (прямоугольник)

Point  Генерирует значение TPoint из значений X и Y

PtInRect  Проверяет, находится ли точка в пределах прямоугольника

Rect  Создаёт величину TRect с указанием 2 точек или 4 координат

TPoint  Содержит целочисленные значения X и Y

TRect  Содержит значения координат прямоугольника

 
Пример кода : Сравнение различных и идентичных точек
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
 


Последние добавленные на сайт исходники

TDictionary Custom Sort

Fast Watermark Sources

3D Designer

Sik Screen Capture

Patch Maker

Айболит (remote control)

 

ListBox Drag & Drop

Доска для игры Реверси

Графические эффекты

Рисование по маске

Перетаскивание изображений

Canvas Drawing

 

Copyright © 2004-2024 "Delphi Sources" by BrokenByte Software (источник – "DelphiBasics")

Группа ВКонтакте