TPAAppend

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)

See Also

• TPADelete
• TPARemove
• TPARemoveEx