TPAIntersect
From SCAR Divi Manual
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)
