TPAAppend

From SCAR Divi Manual
Revision as of 00:42, 21 October 2011 by Freddy (talk | contribs)
Jump to: navigation, search

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

Retrieved from "https://wiki.scar-divi.com/index.php?title=TPAAppend&oldid=1075"