TPAArea

Definition

function TPAInTPA(const TPA1, TPA2: TPointArray): Boolean;

Availability

SCAR Divi 3.20 > Current

Description

Returns true if all points in TPA1 are also part of TPA2. The function does not take into account duplicates.

Example

begin
  WriteLn(TPAInTPA([Point(0, 0), Point(1, 2), Point(5, 6)],
    [Point(-5, 2), Point(0, 0), Point(1, 2), Point(5, 6), Point(1, 3)]));
  WriteLn(TPAInTPA([Point(0, 0), Point(1, 2), Point(5, 6)],
    [Point(-5, 2), Point(1, 2), Point(5, 6), Point(1, 3)]));
end.

Output:

1
0

See Also

• TPAContains