CopyTPAEx

Definition

function CopyTPAEx(const TPA: TPointArray; const Index, Count: Integer): TPointArray;

Availability

SCAR Divi 3.28 > Current

Description

Creates a new TPointArray with a copy of every element in the given array TPA starting at Index with a length of Count.

Example

var
  TPA, TPA2: TPointArray;

begin
  TPA := [Point(5, 6), Point(0, 0), Point(1, 1), Point(2, 4), Point(6, 9)];
  TPA2 := CopyTPAEx(TPA, 2, 2);
  WriteLn('TPointArray: ' + TPAToStr(TPA2));
end.

Output:

TPointArray: (1,1);(2,4)

See Also

• CopyTPA