Difference between revisions of "TPARemovePointEx"
From SCAR Divi Manual
(Created page with "==Definition== <source lang="scar" lines="false"> procedure TPARemovePointEx(var TPA: TPointArray; const Point: TPoint; const All: Boolean); </source> ==Availability== SCAR Divi...") |
(No difference)
|
Revision as of 08:57, 3 July 2011
Definition
procedure TPARemovePointEx(var TPA: TPointArray; const Point: TPoint; const All: Boolean);
Availability
SCAR Divi 3.26 > Current
Description
Removes the last occurrence of a given TPoint Point in a TPointArray TPA if All is false. If All is true, it will remove every occurrences of Point.
Example
var
TPA: TPointArray;
begin
TPA := [Point(0, 0), Point(2, 2), Point(4, 5), Point(2, 2), Point(5, 10)];
TPARemovePointEx(TPA, Point(2, 2), True);
WriteLn('TPointArray: ' + TPAToStr(TPA));
end.Output:
TPointArray: (0,0);(4,5);(5,10)
