function SplitTPA(const TPA: TPointArray; const Dist: Integer): T2DPointArray;
SCAR Divi 3.27 > Current
- Contained a bug in 3.26 that caused the resulting 2d array to contain additional wrong arrays.
- TPAChain (SCAR Divi 3.26 > 3.35)
This function splits a given TPointArray TPA into separate TPointArrays by grouping together the points that are within a given distance Dist from each other. The function returns a T2DPointArray containing all the resulting TPointArrays. An extended function with additional functionality is available as SplitTPAEx.
var i: Integer; TPA: TPointArray; ATPA: T2DPointArray; begin TPA := [Point(0, 0), Point(2, 6), Point(1, 2), Point(1, 1)]; ATPA := SplitTPA(TPA, 2); for i := Low(ATPA) to High(ATPA) do WriteLn(TPAToStr(ATPA[i])); end.