Changeset 322 for trunk/GameSystem.pas

Timestamp:

Jun 25, 2024, 1:15:02 AM (3 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/GameSystem.pas

@@ -5 +5 @@
 uses
   Classes, SysUtils, Generics.Collections, &Unit, DOM, XMLRead, XMLWrite, XML, XMLConf,
-  FileUtil, LazFileUtils, MapType, Nation, Building;
+  FileUtil, LazFileUtils, MapType, Nation, Building, ItemList;
 
 type
@@ -69 +69 @@
 begin
   I := 0;
-  while (I < Count) and (TGameSystem(Items[I]).GetName <> Name) do Inc(I);
+  while (I < Count) and (Items[I].GetName <> Name) do Inc(I);
   if I < Count then Result := Items[I]
     else Result := nil;