Changeset 316 for trunk/UGameSystem.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/UGameSystem.pas

@@ -1 +1 @@
 unit UGameSystem;
 
-{$mode delphi}
-
 interface
 
 uses
-  Classes, SysUtils, fgl, UUnit, DOM, XMLRead, XMLWrite, XML, XMLConf,
+  Classes, SysUtils, Generics.Collections, UUnit, DOM, XMLRead, XMLWrite, XML, XMLConf,
   FileUtil, LazFileUtils, UMapType, UNation, UBuilding;
 
@@ -39 +37 @@
   { TGameSystems }
 
-  TGameSystems = class(TFPGObjectList<TGameSystem>)
+  TGameSystems = class(TObjectList<TGameSystem>)
     function AddNew(Name: string): TGameSystem;
     function SearchByName(Name: string): TGameSystem;
@@ -103 +101 @@
 destructor TGameSystem.Destroy;
 begin
-  Nations.Free;
-  BuildingKinds.Free;
-  UnitKinds.Free;
-  inherited Destroy;
+  FreeAndNil(Nations);
+  FreeAndNil(BuildingKinds);
+  FreeAndNil(UnitKinds);
+  inherited;
 end;