Changeset 316 for trunk/UServerList.pas

Timestamp:

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

Author:

chronos

Message:

• Modified: Code cleanup.

File:

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

trunk/UServerList.pas

@@ -1 +1 @@
 unit UServerList;
-
-{$mode delphi}
 
 interface
 
 uses
-  Classes, SysUtils, fgl, XMLConf;
+  Classes, SysUtils, Generics.Collections, XMLConf;
 
 type
@@ -25 +23 @@
   end;
 
-  TServerInfos = class(TFPGObjectList<TServerInfo>)
+  TServerInfos = class(TObjectList<TServerInfo>)
   end;
 
@@ -88 +86 @@
 destructor TServerList.Destroy;
 begin
-  Items.Free;
-  inherited Destroy;
+  FreeAndNil(Items);
+  inherited;
 end;