SortATPABySize

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)