TPAContains

Definition

function TPAContains(const TPA: TPointArray; const Point: TPoint): Boolean;

Availability

SCAR Divi 3.26 > Current

Description

Returns true if the given TPointArray TPA contains the given TPoint Point.

Example

var
  TPA: TPointArray;

begin
  TPA := [Point(0, 0), Point(2, 2), Point(2, 3), Point(5, 10)];
  WriteLn(TPAContains(TPA, Point(1, 1)));
  WriteLn(TPAContains(TPA, Point(2, 2)));
end.

Output:

0
1

See Also

• TPAIntersect
• TPARemovePoint