TPAAppend

Definition

procedure TPAAppend(var TPA: TPointArray; const Point: TPoint);

Availability

SCAR Divi 3.28 > Current

• Before 3.34 the function had no result.

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