TPAIntersect

Definition

function TPAIntersect(const TPA1, TPA2: TPointArray): TPointArray;

Availability

SCAR Divi 3.26 > Current

Description

Returns a TPointArray containing all points the given TPointArrays TPA1 and TPA2 have in common.

Example

var
  TPA: TPointArray;

begin
  TPA := TPAIntersect([Point(0, 0), Point(1, 0), Point(0, 1), Point(1, 1), Point(2, 2)],
    [Point(1, 0), Point(2, 0), Point(2, 2)]);
  WriteLn('TPointArray[' + TPAToStr(TPA) + ']');
end.

Output:

TPointArray[(1,0);(2,2)]

See Also

• TPAContains