Функція Rect – створює об'єкт TRect (прямокутник) із зазначенням 2 точок чи 4 координат

Функція Rect в Delphi створює величину TRect із зазначенням 2 точок або 4 координат.

Функція Rect: Створення двох прямокутників із використанням обох синтаксисів

var
  rectangle1, rectangle2 : TRect;

begin
  // Установка першого прямокутника, використовуючи перший синтаксис
  rectangle1 := Rect(20, 40, 60, 80);

  // Встановлення другого прямокутника за допомогою функції Rect
  rectangle2 := Classes.Rect(Point(20, 40), Point(60, 80));

  // Відображення верхньої лівої та правої нижньої координати кожного прямокутника
  ShowMessageFmt('Координаты 1-го Прямокутника = %d,%d,%d,%d',
                 [rectangle1.Left,
                  rectangle1.Top,
                  rectangle1.Right,
                  rectangle1.Bottom]);

  ShowMessageFmt('Координати 2-го Прямокутника = %d,%d,%d,%d',
                 [rectangle2.Left,
                  rectangle2.Top,
                  rectangle2.Right,
                  rectangle2.Bottom]);
end;