Changeset 561 for PersistentData/UPersistentData.pas

Timestamp:

Sep 10, 2022, 6:26:39 PM (21 months ago)

Author:

chronos

Message:

• Modified: Code cleanup.
• Modified: Use Generics.Collections.

File:

• PersistentData/UPersistentData.pas (modified) (4 diffs)

PersistentData/UPersistentData.pas

@@ -1 +1 @@
 unit UPersistentData;
-
-{$mode delphi}{$H+}
 
 interface
 
 uses
-  Classes, SysUtils, UPDClient, SpecializedList;
+  Classes, SysUtils, UPDClient, Generics.Collections;
 
 type
@@ -14 +12 @@
   end;
 
+  TPDManagerItems = class(TObjectList<TPDManagerItem>)
+  end;
+
   { TPDManager }
 
   TPDManager = class(TComponent)
-    Items: TListObject;
+  public
+    Items: TPDManagerItems;
     procedure Register(ClientClass: TPDClientClass);
     procedure LoadToStrings(Strings: TStrings);
@@ -77 +79 @@
 begin
   inherited;
-  Items := TListObject.Create;
+  Items := TPDManagerItems.Create;
 end;
 
@@ -83 +85 @@
 begin
   FreeAndNil(Items);
-  inherited Destroy;
+  inherited;
 end;