TPAArea

Definition

function TPAArea(const TPA: TPointArray): Integer;

Source Code

function TPAArea(const TPA: TPointArray): Integer;
var
  w, h: Integer;
begin
  TPADimensions(TPA, w, h);
  Result := w * h;
end;

Availability

SCAR Divi 3.26 > Current

Description

Returns the size of the area covered by a given TPointArray TPA.

Example

begin
  WriteLn(TPAArea([Point(0, 0), Point(1, 2), Point(5, 4)]));
end.

Output:

30

See Also

• TPADensity
• TPADimensions
• TPABounds