Changeset 424 for trunk/Network/UNetworkServer.pas

Timestamp:

Apr 25, 2022, 6:22:53 PM (3 years ago)

Author:

chronos

Message:

• Modified: Update Common package to version 0.10.
• Modified: fgl unit replaced by Generics.Collections.

File:

• trunk/Network/UNetworkServer.pas (modified) (4 diffs)

trunk/Network/UNetworkServer.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils{$IFDEF UNIX}, fgl, fpAsync, fpsock, fphttpclient{$ENDIF}, Protocol;
+  Classes, SysUtils{$IFDEF UNIX}, Generics.Collections, fpAsync, fpsock,
+  fphttpclient{$ENDIF}, Protocol;
 
 {$IFDEF UNIX}
@@ -55 +56 @@
   { TNetworkServerPlayers }
 
-  TNetworkServerPlayers = class(TFPGObjectList<TNetworkServerPlayer>)
+  TNetworkServerPlayers = class(TObjectList<TNetworkServerPlayer>)
     function SearchById(Id: Integer): TNetworkServerPlayer;
   end;
@@ -64 +65 @@
   private
     Players: TNetworkServerPlayers;
-    Connections: TFPGObjectList<TNetworkServerConnection>;
+    Connections: TObjectList<TNetworkServerConnection>;
     TCPServerThread: TTCPServerThread;
     ServerEventLoop: TEventLoop;
@@ -302 +303 @@
   Players := TNetworkServerPlayers.Create;
   ServerEventLoop := TEventLoop.Create;
-  Connections := TFPGObjectList<TNetworkServerConnection>.Create;
+  Connections := TObjectList<TNetworkServerConnection>.Create;
   TCPServer := TTCPServer.Create(nil);
   with TCPServer do begin