Changeset 142 for trunk/Packages/PersistentData/UPersistentData.pas

Timestamp:

Sep 10, 2022, 6:24:58 PM (2 years ago)

Author:

chronos

Message:

• Fixed: PersistentData package wrong list Add method usage.

File:

• trunk/Packages/PersistentData/UPersistentData.pas (modified) (2 diffs)

trunk/Packages/PersistentData/UPersistentData.pas

@@ -12 +12 @@
   end;
 
+  TPDManagerItems = class(TObjectList<TPDManagerItem>)
+  end;
+
   { TPDManager }
 
   TPDManager = class(TComponent)
   public
-    Items: TObjectList<TPDManagerItem>;
+    Items: TPDManagerItems;
     procedure Register(ClientClass: TPDClientClass);
     procedure LoadToStrings(Strings: TStrings);
@@ -76 +79 @@
 begin
   inherited;
-  Items := TObjectList<TPDManagerItem>.Create;
+  Items := TPDManagerItems.Create;
 end;