Changeset 344 for trunk/Core.pas

Timestamp:

Dec 23, 2024, 8:16:05 AM (10 hours ago)

Author:

chronos

Message:

• Modified: Improved implementation of TItemList class to be generic class to avoid explicit typecasting.

File:

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

trunk/Core.pas

@@ -606 +606 @@
   FormMain.FormClient.Client := nil;
   for I := 0 to Game.Players.Count - 1 do begin
-    Player := TPlayer(Game.Players[I]);
+    Player := Game.Players[I];
     with Player do
     if Mode = pmHuman then begin
@@ -739 +739 @@
   FormMain.FormClient.Client := nil;
   for I := 0 to Game.Players.Count - 1 do begin
-    Player := TPlayer(Game.Players[I]);
+    Player := Game.Players[I];
     with Player do
     if Mode = pmHuman then begin