TPADistToPointEx

Definition

procedure TPADistToPointEx(const TPA: TPointArray; const Point: TPoint; out MinDist, MaxDist: Extended; out MinPoint, MaxPoint: TPoint);

Availability

SCAR Divi 3.37 > Current

Description

Calculates the minimum and maximum distance of the TPoint Point, to all of the points in the TPointArray TPA and returns the distances in MinDist and MaxDist. The point from TPA that was closest to Point is returned in MinPoint, the one furthest in MaxPoint.

Example

var
  MinDist, MaxDist: Extended;   
  PMin, PMax: TPoint;

begin
  TPADistToPointEx([Point(0, 0), Point(3, 0)], Point(1, 1), MinDist, MaxDist, PMin, PMax);
  WriteLn(FloatToStr(MinDist) + ' - ' + FloatToStr(MaxDist));          
  WriteLn(PointToStr(PMin) + ' - ' + PointToStr(PMax));
end.

Output:

1.4142135623731 - 2.23606797749979
(0,0) - (3,0)

See Also

• TPADistToPoint