TPAUnique
From SCAR Divi Manual
Definition
procedure TPAUnique(var TPA: TPointArray);
Availability
SCAR Divi 3.28 > Current
Aliases
- TPARemoveDupl (SCAR Divi 3.26 > Current)
Description
This function removes all of the duplicate coordinates in a given TPointArray TPA.
Example
var TPA: TPointArray; begin TPA := [Point(0, 0), Point(2, 2), Point(5, 10), Point(0, 0)]; TPAUnique(TPA); WriteLn(TPAToStr(TPA)); end.
Output:
(0,0);(2,2);(5,10)