TPAMiddleEx
From SCAR Divi Manual
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)
