Функція PointsEqual в Delphi порівнює два значення TPoint щодо рівності.
Classes unit
function PointsEqual (const Point1, Point2 : TPoint) : Boolean;
Функція PointsEqual порівнює значення параметрів Point1 і Point2, та повертає Істину (True), якщо вони рівні.
Якщо будь-яке значення X або Y кожної точки по-різному, то буде повернена Брехня(False).
Функція 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;Результат
1,2 <> 3,4
2,9 = 2,9
Подібні функції, процедури та команди
Bounds — передає координати вершин об'єкта типу TRect (прямокутник).
Point — генерує значення TPoint із значеньX и Y.
PtInRect — перевіряє, чи знаходиться точка в межах прямокутника.
Rect — створює величину TRect із зазначенням 2 точок або 4 координат.
TPoint — містить цілочислові значення X и Y.
TRect — містить значення координат прямокутника.
Пригостити автора кавою