SortTPAEx

Definition

procedure SortTPAEx(var TPA: TPointArray; const Point: TPoint);

Availability

SCAR Divi 3.28 > Current

Aliases

• TPASortEx (SCAR Divi 3.26 > Current)

Description

Sorts a given TPointArray TPA by distance from a given TPoint Point using the fast ShellSort algorithm.

Example

var
  TPA: TPointArray;

begin
  TPA := [Point(2, 2), Point(0, 0), Point(5, 10), Point(0, 0)];
  SortTPAEx(TPA, Point(3, 3));
  WriteLn('TPointArray: ' + TPAToStr(TPA));
end.

Output:

TPointArray: (2,2);(0,0);(0,0);(5,10)

See Also

• SortTPA
• ATPASortBySize