Difference between revisions of "SortATPAEx"
From SCAR Divi Manual
(Created page with "==Definition== <source lang="scar" lines="false"> procedure SortATPAEx(var ATPA: T2DPointArray; const Point: TPoint); </source> ==Availability== SCAR Divi 3.28 > Current ==Desc...") |
(No difference)
|
Latest revision as of 00:58, 24 October 2011
Definition
procedure SortATPAEx(var ATPA: T2DPointArray; const Point: TPoint);
Availability
SCAR Divi 3.28 > Current
Description
Sorts all the subarrays of a given T2DPointArray ATPA with SortTPAEx wich is based on the fast ShellSort algorithm.
Example
var
ATPA: T2DPointArray;
i: Integer;
begin
SetLength(ATPA, 3);
ATPA[0] := [Point(1, 6), Point(5, 4), Point(1, 5)];
ATPA[1] := [Point(1, 1), Point(2, 2)];
ATPA[2] := [Point(5, 10)];
SortATPAEx(ATPA, Point(4, 3));
for i := 0 to High(ATPA) do
WriteLn(TPAToStr(ATPA[i]));
end.Output:
(5,4);(1,5);(1,6) (2,2);(1,1) (5,10)
