Changeset 316 for trunk/UUnit.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/UUnit.pas

@@ -1 +1 @@
 unit UUnit;
 
-{$mode delphi}
-
 interface
 
 uses
-  Classes, SysUtils, fgl, UGeometry, DOM, XML, UItemList;
+  Classes, SysUtils, Generics.Collections, UGeometry, DOM, XML, UItemList;
 
 type
@@ -64 +62 @@
   { TUnits }
 
-  TUnits = class(TFPGObjectList<TUnit>)
+  TUnits = class(TObjectList<TUnit>)
     NewId: Integer;
     Game: TObject; //TGame;
@@ -304 +302 @@
 destructor TUnit.Destroy;
 begin
-  inherited Destroy;
+  inherited;
 end;