Changeset 316 for trunk/UGameServer.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

File:

• trunk/UGameServer.pas (modified) (5 diffs)

trunk/UGameServer.pas

@@ -1 +1 @@
 unit UGameServer;
 
-{$mode delphi}
-
 interface
 
 uses
-  Classes, SysUtils, UGame, DOM, XMLConf, fgl, UGameProtocol, UCommFrame, UPlayer;
+  Classes, SysUtils, UGame, DOM, XMLConf, Generics.Collections, UGameProtocol,
+  UCommFrame, UPlayer;
 
 type
@@ -32 +31 @@
   { TServerClients }
 
-  TServerClients = class(TFPGObjectList<TServerClient>)
+  TServerClients = class(TObjectList<TServerClient>)
     Game: TGame;
     function SearchByPlayer(Player: TPlayer): TServerClient;
@@ -73 +72 @@
   DefaultServerPort = 40009;
 
+
 implementation
 
@@ -120 +120 @@
 destructor TServerClient.Destroy;
 begin
-  Protocol.Free;
-  CommFrame.Free;
-  inherited Destroy;
+  FreeAndNil(Protocol);
+  FreeAndNil(CommFrame);
+  inherited;
 end;
 
@@ -278 +278 @@
 begin
   FreeAndNil(Clients);
-  inherited Destroy;
+  inherited;
 end;