Changeset 342 for trunk/Map.pas

Timestamp:

Dec 22, 2024, 10:52:26 AM (15 hours ago)

Author:

chronos

Message:

• Added: More tests.

File:

• trunk/Map.pas (modified) (3 diffs)

trunk/Map.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Graphics, ExtCtrls, Geometry, DOM, Generics.Collections,
-  Generics.Defaults, Building, XML, &Unit;
+  Generics.Defaults, Building, XML, Units;
 
 const
@@ -162 +162 @@
     function IsValidIndex(Index: TPoint): Boolean; virtual;
     procedure Assign(Source: TMap); virtual;
+    function Compare(Map: TMap): Boolean;
     procedure LoadFromFile(FileName: string); virtual;
     procedure SaveToFile(FileName: string); virtual;
@@ -539 +540 @@
 end;
 
+function TMap.Compare(Map: TMap): Boolean;
+begin
+  Result := True;
+end;
+
 procedure TMap.LoadFromFile(FileName: string);
 begin