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(TPAToStr(TPA));
end.

Output:

(1,0);(2,2)

See Also

• TPAContains