Difference between revisions of "SortATPABySize"
From SCAR Divi Manual
(→Description) |
|||
Line 11: | Line 11: | ||
==Description== | ==Description== | ||
− | Sorts the [[TPointArray|TPointArrays]] in the given [[T2DPointArray]] '''ATPA''' by their respective lengths using the fast [http://en.wikipedia.org/wiki/Shell_sort ShellSort] algorithm | + | Sorts the [[TPointArray|TPointArrays]] in the given [[T2DPointArray]] '''ATPA''' by their respective lengths using the fast [http://en.wikipedia.org/wiki/Shell_sort ShellSort] algorithm. |
==Example== | ==Example== |
Revision as of 23:15, 20 October 2011
Definition
procedure SortATPABySize(var ATPA: T2DPointArray);
Availability
SCAR Divi 3.28 > Current
Aliases
- ATPASortBySize (SCAR Divi 3.26 > Current)
Description
Sorts the TPointArrays in the given T2DPointArray ATPA by their respective lengths using the fast ShellSort algorithm.
Example
var ATPA: T2DPointArray; i: Integer; begin SetLength(ATPA, 4); ATPA[0] := [Point(5, 6), Point(0, 0), Point(1, 1), Point(6, 6)]; ATPA[1] := [Point(5, 6)]; ATPA[2] := [Point(5, 6), Point(0, 0), Point(1, 1)]; ATPA[3] := [Point(5, 6), Point(0, 0)]; SortATPABySize(ATPA); for i := 0 to High(ATPA) do WriteLn(TPAToStr(ATPA[i])); end.
Output:
(5,6) (5,6);(0,0) (5,6);(0,0);(1,1) (5,6);(0,0);(1,1);(6,6)