Changeset 316 for trunk/UGameClient.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/UGameClient.pas

@@ -1 +1 @@
 unit UGameClient;
 
-{$mode delphi}
-
 interface
 
 uses
-  Classes, SysUtils, UGame, Forms, fgl, UGameProtocol, UGameServer, UCommThread,
-  Threading, UCommFrame, UPlayer;
+  Classes, SysUtils, UGame, Forms, Generics.Collections, UGameProtocol,
+  UGameServer, UCommThread, Threading, UCommFrame, UPlayer;
 
 type
@@ -70 +68 @@
   { TClients }
 
-  TClients = class(TFPGObjectList<TClient>)
+  TClients = class(TObjectList<TClient>)
     Game: TGame;
     function New(Name: string): TClient;
@@ -248 +246 @@
   FreeAndNil(CommThread);
   FreeAndNil(CommFrame);
-  inherited Destroy;
+  inherited;
 end;