Difference between revisions of "TPAUnique"
From SCAR Divi Manual
(Created page with "==Definition== <source lang="scar" lines="false"> procedure TPARemoveDupl(var TPA: TPointArray); </source> ==Availability== SCAR Divi 3.26 > Current ==Description== This functi...") |
|||
| Line 32: | Line 32: | ||
[[Category:Functions]] | [[Category:Functions]] | ||
[[Category:TPA Functions]] | [[Category:TPA Functions]] | ||
| + | [[Category:Array Functions]] | ||
Revision as of 11:03, 29 June 2011
Definition
procedure TPARemoveDupl(var TPA: TPointArray);
Availability
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)];
TPARemoveDupl(TPA);
WriteLn('TPointArray: ' + TPAToStr(TPA));
end.Output:
TPointArray: (0,0);(2,2);(5,10)
