Changeset 148 for trunk/Packages/Common/Pool.pas

Timestamp:

Jun 5, 2023, 7:40:45 PM (18 months ago)

Author:

chronos

Message:

• Modified: Update Common and VCard package. Remove U prefix from unit names.

File:

• trunk/Packages/Common/Pool.pas (moved) (moved from trunk/Packages/Common/UPool.pas ) (4 diffs)

trunk/Packages/Common/Pool.pas

@@ -1 @@
-unit UPool;
+unit Pool;
 
 interface
 
 uses
-  Classes, SysUtils, syncobjs, Generics.Collections, UThreading;
+  Classes, SysUtils, syncobjs, Generics.Collections, Threading;
 
 type
@@ -106 +106 @@
 constructor TThreadedPool.Create;
 begin
-  inherited Create;
+  inherited;
   Lock := TCriticalSection.Create;
 end;
@@ -114 +114 @@
   TotalCount := 0;
   Lock.Free;
-  inherited Destroy;
+  inherited;
 end;
 
@@ -199 +199 @@
 
 end.
-