Difference between revisions of "SortTPA"
From SCAR Divi Manual
(Created page with "==Definition== <source lang="scar" lines="false"> procedure SortTPA(var TPA: TPointArray); </source> ==Availability== SCAR Divi 3.26 > Current ==Description== Sorts a given [[T...") |
|||
| Line 5: | Line 5: | ||
==Availability== | ==Availability== | ||
| − | SCAR Divi 3.26 > Current | + | SCAR Divi 3.28 > Current |
| + | |||
| + | ===Aliases=== | ||
| + | *TPASort(SCAR Divi 3.26 > Current) | ||
==Description== | ==Description== | ||
Revision as of 19:32, 20 October 2011
Definition
procedure SortTPA(var TPA: TPointArray);
Availability
SCAR Divi 3.28 > Current
Aliases
- TPASort(SCAR Divi 3.26 > Current)
Description
Sorts a given TPointArray TPA by distance from the origin (0, 0) using the fast ShellSort algorithm. An extended function with additional functionality is available as SortTPAEx.
Example
var
TPA: TPointArray;
begin
TPA := [Point(2, 2), Point(0, 0), Point(5, 10), Point(0, 0)];
SortTPA(TPA);
WriteLn('TPointArray: ' + TPAToStr(TPA));
end.Output:
TPointArray: (0,0);(0,0);(2,2);(5,10)
