|
Description
|
The TPoint type is a
record type, holding X and
Y integer values.
This is normally used to hold a 2 dimensional
coordinate.
|
|
|
Related commands
|
|
Bounds
|
|
Create a TRect value from top left and size
values
|
|
Point
|
|
Generates a TPoint value from X and Y values
|
|
PointsEqual
|
|
Compares two TPoint values for equality
|
|
PtInRect
|
|
Tests to see if a point lies
within a rectangle
|
|
Rect
|
|
Create a TRect value from 2 points or 4
coordinates
|
|
TRect
|
|
Holds rectangle coordinate values
|
|
|
|
|
|
|
Example code : Assign 2
TPoint variables manually and using Point
|
var
start, finish : TPoint;
begin
// Set up
the start point directly
start.X := 1;
start.Y := 2;
// Set up
the finish point using the Point
method
finish := Point(1, 2);
// Is the
start point equal to the finish
point?
if PointsEqual(start, finish)
then WriteLn('start
= finish')
else WriteLn('start <>
finish');
end;
|
|
Show full unit code
|
start
= finish
|
|