Changeset 25 for trunk/Packages/Common/UPool.pas

Timestamp:

Sep 10, 2022, 6:54:43 PM (20 months ago)

Author:

chronos

Message:

• Modified: CoolTranslator replaced by Common package.
• Modified: Update common package.

File:

• trunk/Packages/Common/UPool.pas (modified) (5 diffs)

trunk/Packages/Common/UPool.pas

@@ -1 +1 @@
 unit UPool;
 
-{$mode Delphi}{$H+}
-
 interface
 
 uses
-  Classes, SysUtils, syncobjs, SpecializedList, UThreading;
+  Classes, SysUtils, syncobjs, Generics.Collections, UThreading;
 
 type
@@ -22 +20 @@
     function NewItemObject: TObject; virtual;
   public
-    Items: TListObject;
-    FreeItems: TListObject;
+    Items: TObjectList<TObject>;
+    FreeItems: TObjectList<TObject>;
     function Acquire: TObject; virtual;
     procedure Release(Item: TObject); virtual;
@@ -108 +106 @@
 constructor TThreadedPool.Create;
 begin
-  inherited Create;
+  inherited;
   Lock := TCriticalSection.Create;
 end;
@@ -116 +114 @@
   TotalCount := 0;
   Lock.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -185 +183 @@
 begin
   inherited;
-  Items := TListObject.Create;
-  FreeItems := TListObject.Create;
+  Items := TObjectList<TObject>.Create;
+  FreeItems := TObjectList<TObject>.Create;
   FreeItems.OwnsObjects := False;
   FReleaseEvent := TEvent.Create(nil, False, False, '');