Mega Code Archive

 

Categories / Delphi / Types

 

Tpoint - holds x and y integer values

type TPoint = packed record X: Longint; Y: Longint; end; 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 ShowMessage('start = finish') else ShowMessage('start <> finish'); end; Show full unit code start = finish