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('Координаты 1-го прямоугольника = %d,%d,%d,%d', [rectangle2.Left, rectangle2.Top, rectangle2.Right, rectangle2.Bottom]); end;
|
Координаты 1-го прямоугольника = 10,60,50,80 Координаты 1-го прямоугольника = 10,60,50,80
|