Клуб программистов

Delphi функция Bounds передаёт координаты вершин объекта типа TRect (прямоугольник). Указываются 2 вершины - правая верхняя и левая нижняя.

var
   rectangle1, rectangle2 : TRect;

begin
   // Set up the first rectangle using the Rect function
   // Note that we override the Types version of Rect.
   rectangle1 := Classes.Rect(Point(10, 60), Point(50, 80));

   // Set up an identical 2nd rectangle using the Bounds function
   rectangle2 := Bounds(10, 60, 40, 20);

   // Display the top left and bottom right coords of each rectangle
   ShowMessageFmt('Rectangle 1 coords = %d,%d,%d,%d',
       [rectangle1.Left,
       rectangle1.Top,
       rectangle1.Right,
       rectangle1.Bottom]);

   ShowMessageFmt('Rectangle 2 coords = %d,%d,%d,%d',
       [rectangle2.Left,
       rectangle2.Top,
       rectangle2.Right,
       rectangle2.Bottom]);
end;

Rectangle 1 coords = 10,60,50,80
Rectangle 2 coords = 10,60,50,80