Проверка попадания точки в прямоугольник (TPoint в TRect)

Delphi , Графика и Игры , Графика

Автор: Lipskiy
WEB-сайт: http://delphibase.endimus.com

{ **** UBPFD *********** by delphibase.endimus.com ****
>> 
Проверка - входят ли координаты точки TPoint в область,
ограниченную координатами прямоугольника TRect.
P.S. Вероятно, есть стандартная, но я не нашел.

Зависимости: Windows
Автор:       lipskiy, lipskiy@mail.ru, ICQ:51219290, Санкт-Петербург
Copyright:   Собственное написание (lipskiy)
Дата:        26 июня 2002 г.
***************************************************** }

function PointIntoRect(Point: TPoint; Rect: TRect): boolean;
begin
  Result :=
    (Point.x >= Rect.Left) and
    (Point.x <= Rect.Right) and
    (Point.y >= Rect.Top) and
    (Point.y <= Rect.Bottom);
end;

Приветственный код-снippet на Delphi!

Обзор кода В функции PointIntoRect проверяется, находится ли точка (TPoint) внутри прямоугольника (TRect). Функция возвращает булевое значение, указывающее, находится ли точка внутри или вне прямоугольника.

Вот разбивка кода:

1. Result := ...: Функция инициализирует переменную результата с результатом условий.
2. (Point.x >= Rect.Left) and (Point.x <= Rect.Right) : Это условие проверяет, находится ли координата x точки (Point.x) в диапазоне, определенном левым и правым границами прямоугольника (Rect.Left и Rect.Right, соответственно).
3. (Point.y >= Rect.Top) and (Point.y <= Rect.Bottom) : Аналогично, это условие проверяет, находится ли координата y точки (Point.y) в диапазоне, определенном верхней и нижней границами прямоугольника (Rect.Top и Rect.Bottom, соответственно).

Условия комбинируются с помощью логического оператора AND. Это обеспечивает, что все четыре условия должны быть истинными для функции возвращать True.

Альтернативное решение Хотя это реализация прямая, вы также можете использовать одиночную выражение с методом Contains прямоугольника:

function PointIntoRect(Point: TPoint; Rect: TRect): boolean;
begin
  Result := Rect.Contains(Point);
end;

Эта APPROACH более компактна и может быть проще для чтения. Однако, это метод доступен только в Delphi XE2 и позднее версиях.

Заключение Функция PointIntoRect работает корректно и эффективно проверяет, находится ли точка внутри прямоугольника. Код легко понимается, а альтернативное решение с использованием метода Contains предоставляет еще более компактную реализацию. В целом, это хорошо написанный и полезный код на Delphi!

Описание статьи 'Проверка попадания точки в прямоугольник (TPoint в TRect)' - функция на Delphi, проверяющая, входят ли координаты точки TPoint в область, ограниченную координатами прямоугольника TRect.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Графика ::