Difference between revisions of "TPAAppend"
From SCAR Divi Manual
| Line 8: | Line 8: | ||
==Description== | ==Description== | ||
| − | Appends the given [[TPoint]] '''Point''' to end of the given TPointArray '''TPA'''. | + | Appends the given [[TPoint]] '''Point''' to end of the given TPointArray '''TPA'''. The index of the appended element is returned. |
==Example== | ==Example== | ||
| Line 17: | Line 17: | ||
begin | begin | ||
TPA := [Point(0, 0), Point(1, 1), Point(3, 3)]; | TPA := [Point(0, 0), Point(1, 1), Point(3, 3)]; | ||
| − | TPAAppend(TPA, Point(4, 4)); | + | WriteLn(TPAAppend(TPA, Point(4, 4))); |
WriteLn(TPAToStr(TPA)); | WriteLn(TPAToStr(TPA)); | ||
end. | end. | ||
| Line 23: | Line 23: | ||
Output: | Output: | ||
| + | 3 | ||
(0,0);(1,1);(3,3);(4,4) | (0,0);(1,1);(3,3);(4,4) | ||
Revision as of 17:48, 23 April 2012
Definition
procedure TPAAppend(var TPA: TPointArray; const Point: TPoint);
Availability
SCAR Divi 3.28 > Current
Description
Appends the given TPoint Point to end of the given TPointArray TPA. The index of the appended element is returned.
Example
var TPA: TPointArray; begin TPA := [Point(0, 0), Point(1, 1), Point(3, 3)]; WriteLn(TPAAppend(TPA, Point(4, 4))); WriteLn(TPAToStr(TPA)); end.
Output:
3 (0,0);(1,1);(3,3);(4,4)
