TPAFilterPoints
From SCAR Divi Manual
Definition
procedure TPAFilterPoints(var TPA: TPointArray; const FilterTPA: TPointArray);
Availability
SCAR Divi 3.25 > Current
Description
Filters a TPointArray TPA by removing all coordinates that are part of the given TPointArray FilterTPA.
Example
var
TPA: TPointArray;
begin
TPA := [Point(0, 0), Point(2, 2), Point(2, 3), Point(5, 10), Point(2, 2)];
WriteLn('Unfiltered TPointArray: ' + TPAToStr(TPA));
TPAFilterPoints(TPA, [Point(2, 2)]);
WriteLn('Filtered TPointArray: ' + TPAToStr(TPA));
end.Output:
Unfiltered TPointArray: (0,0);(2,2);(2,3);(5,10);(2,2) Filtered TPointArray: (0,0);(2,3);(5,10)
