MergeATPA

Definition

function MergeATPA(const ATPA: T2DPointArray): TPointArray;

Availability

SCAR Divi 3.28 > Current

Description

Merges all TPointArrays in the given T2DPointArray ATPA by appending them to each other.

Example

var
  ATPA: T2DPointArray;

begin
  SetLength(ATPA, 3);
  ATPA[0] := [Point(1, 1), Point(2, 2)];
  ATPA[1] := [Point(3, 3), Point(4, 4)];
  ATPA[2] := [Point(5, 5), Point(6, 6)];
  WriteLn(TPAToStr(MergeATPA(ATPA)));
end.

Output:

(1,1);(2,2);(3,3);(4,4);(5,5);(6,6)

See Also

• CombineTPA