Changeset 345 for trunk/Geometry.pas

Timestamp:

Dec 23, 2024, 11:25:36 AM (8 hours ago)

Author:

chronos

Message:

• Modified: Improved test cases.

File:

• trunk/Geometry.pas (modified) (2 diffs)

trunk/Geometry.pas

@@ -96 +96 @@
     constructor Create(const Points: TPointArray); overload;
     constructor Create(const Rect: TGRect<T>); overload;
+    function Compare(Polygon: TGPolygon<T>): Boolean;
     procedure Move(P: T);
     function GetRect: TGRect<T>;
@@ -239 +240 @@
   Self.Points[2] := Rect.P2;
   Self.Points[3] := T.Create(Rect.P1.X, Rect.P2.Y);
+end;
+
+function TGPolygon<T>.Compare(Polygon: TGPolygon<T>): Boolean;
+var
+  I: Integer;
+begin
+  Result := Length(Points) = Length(Polygon.Points);
+  if not Result then Exit;
+  for I := 0 to Length(Points) - 1 do
+    if Points[I] <> Polygon.Points[I] then begin
+      Result := False;
+      Break;
+    end;
 end;