TPAMiddle

Definition

function TPAMiddle(const TPA: TPointArray): TPoint;

Availability

SCAR Divi 3.20 > Current

Description

This function determines the center point of a given TPointArray TPA by calculating the averages of the x and y coordinates. An extended function with additional functionality is available as TPAMiddleEx.

Aliases

• MiddleTPA

Example

var
  TPA: TPointArray;
  MiddlePoint: TPoint;
  
begin
  TPA := [Point(0, 0), Point(2, 2), Point(5, 10)];
  MiddlePoint := MiddleTPA(TPA);
  WriteLn('Middle-Point(' + IntToStr(MiddlePoint.x) + ',' + IntToStr(MiddlePoint.y) + ')');
end.

Output:

Middle-Point(2,4)

See Also

• TPAMiddleEx
• TPADimensions
• TPAArea
• TPADensity