Difference between revisions of "TPARemoveEx"
From SCAR Divi Manual
m (→Description) |
m (→Example) |
||
| Line 20: | Line 20: | ||
begin | begin | ||
TPA := [Point(0, 0), Point(2, 2), Point(4, 5), Point(2, 2), Point(5, 10)]; | TPA := [Point(0, 0), Point(2, 2), Point(4, 5), Point(2, 2), Point(5, 10)]; | ||
| − | + | TPARemoveEx(TPA, Point(2, 2), True); | |
WriteLn(TPAToStr(TPA)); | WriteLn(TPAToStr(TPA)); | ||
end. | end. | ||
Revision as of 11:43, 28 August 2013
Definition
procedure TPARemoveEx(var TPA: TPointArray; const Point: TPoint; const All: Boolean);
Availability
SCAR Divi 3.28 > Current
Aliases
- TPARemovePointEx (SCAR Divi 3.26 > 3.35)
Description
Removes the first 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)]; TPARemoveEx(TPA, Point(2, 2), True); WriteLn(TPAToStr(TPA)); end.
Output:
(0,0);(4,5);(5,10)
