TPAMiddleEx

Definition

function TPAMiddleEx(const TPA: TPointArray; out x, y: Integer): Boolean;

Availability

SCAR Divi 3.26 > 3.37

Aliases

• MiddleTPAEx (SCAR Divi 3.20 > 3.35)

Description

This function determines the arithmetic mean of all x and y coordinates in the given TPointArray TPA and returns them in x and y. The function returns true if the given TPointArray TPA contains 1 or more values.

Example

var
  TPA: TPointArray;
  x, y: Integer;
  
begin
  TPA := [Point(0, 0), Point(2, 2), Point(5, 10)];
  if TPAMiddleEx(TPA, x, y) then
    WriteLn('Middle-Point(' + IntToStr(x) + ',' + IntToStr(y) + ')');
end.

Output:

Middle-Point(2,4)

See Also

• TPAMiddle
• TPADimensions
• TPAArea
• TPADensity