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.

Example

var
  TPA: TPointArray;

begin
  TPA := [Point(0, 0), Point(1, 1), Point(3, 3)];
  TPAAppend(TPA, Point(4, 4));
  WriteLn(TPAToStr(TPA));
end.

Output:

(0,0);(1,1);(3,3);(4,4)

See Also

• MergeATPA