Changeset 316 for trunk/UGame.pas

Timestamp:

Jun 19, 2024, 11:53:06 PM (5 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/UGame.pas (modified) (6 diffs)

trunk/UGame.pas

@@ -1 +1 @@
 unit UGame;
-
-{$mode delphi}{$H+}
 
 interface
@@ -7 +5 @@
 uses
   Classes, SysUtils, ExtCtrls, Graphics, XMLConf, XMLRead, XMLWrite, Forms,
-  DOM, Math, LazFileUtils, XML, Dialogs, LCLType, LCLIntf, fgl, UBuilding,
-  UGeometry, UPlayer, UMap, UMapType, UUnit, UGameSystem;
+  DOM, Math, LazFileUtils, XML, Dialogs, LCLType, LCLIntf, UBuilding, UGeometry,
+  UPlayer, UMap, UMapType, UUnit, UGameSystem;
 
 const
@@ -387 +385 @@
     List := TCells.Create;
     try
-      List.FreeObjects := False;
+      List.OwnsObjects := False;
       Map.Cells.GetCellsWithWeight(List, Round(LongestDistance * 0.6), Round(LongestDistance * 0.8));
 
@@ -415 +413 @@
       Player.StartCell.Mark := True;
       List := TCells.Create;
-      List.FreeObjects := False;
+      List.OwnsObjects := False;
       List.Add(Player.StartCell);
       PropagatePlayerDistance(List);
@@ -430 +428 @@
 begin
   NeighborList := TCells.Create;
-  NeighborList.FreeObjects := False;
+  NeighborList.OwnsObjects := False;
 
   for Cell in List do begin
@@ -880 +878 @@
   FreeAndNil(Units);
   FreeAndNil(GameSystem);
-  inherited Destroy;
+  inherited;
 end;