Difference between revisions of "TPAArea"

From SCAR Divi Manual
Jump to: navigation, search
(Undo revision 736 by Freddy (talk))
 
(One intermediate revision by the same user not shown)
(No difference)

Latest revision as of 15:57, 3 July 2011

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