Difference between revisions of "SortATPABySize"
From SCAR Divi Manual
(→Description) |
|||
| Line 36: | Line 36: | ||
(5,6);(0,0);(1,1) | (5,6);(0,0);(1,1) | ||
(5,6);(0,0);(1,1);(6,6) | (5,6);(0,0);(1,1);(6,6) | ||
| + | |||
| + | ==See Also== | ||
| + | *[[SortATPAByMiddle]] | ||
| + | *[[SortATPAByMiddleEx]] | ||
[[Category:Functions]] | [[Category:Functions]] | ||
[[Category:TPA Functions]] | [[Category:TPA Functions]] | ||
[[Category:Array Functions]] | [[Category:Array Functions]] | ||
Revision as of 01:00, 24 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)
