Difference between revisions of "TPAArea"

Revision as of 09:06, 3 July 2011

function TPAArea(const TPA: TPointArray): Integer;

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

SCAR Divi 3.26 > Current

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

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

Output:

@@ Line 2: / Line 2: @@
 <source lang="scar" lines="false">
 function TPAArea(const TPA: TPointArray): Integer;
+</source>
+===Source Code===
+<source lang="scar">
+function TPAArea(const TPA: TPointArray): Integer;
+var
+  w, h: Integer;
+begin
+  TPADimensions(TPA, w, h);
+  Result := w * h;
+end;
 </source>