Функція Bounds – передає координати вершин об'єкта типу TRect (прямокутник)

Функція Bounds в Delphi передає координати вершин об'єкта типу TRect (прямокутник).

Функція Bounds: Створення прямокутника, використовуючи Rect та Bounds

var
  rectangle1, rectangle2 : TRect;

begin
  // Встановлення першого прямокутника за допомогою функції Rect
  // Зверніть увагу, що ми замінюємо Types версію Rect.
  rectangle1 := Classes.Rect(Point(10, 60), Point(50, 80));

  // Встановлення ідентичного 2-го прямокутника за допомогою функції Bounds
  rectangle2 := Bounds(10, 60, 40, 20);

  // Показ лівої верхньої та правої нижньої координати кожного прямокутника
  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;