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

Timestamp:

Aug 14, 2024, 1:05:13 PM (3 months ago)

Author:

chronos

Message:

• Added: Full screen switching support.
• Added: Help form.
• Modified: Updated Common package.
• Fixed: Execution of compiled Java and C# programs.
• Fixed: Removed interlanced empty lines in Console form on Unix.

File:

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

trunk/Packages/Common/Pool.pas

@@ -57 +57 @@
   try
     Lock.Acquire;
-    inherited SetTotalCount(AValue);
+    inherited;
   finally
     Lock.Release;
@@ -67 +67 @@
   try
     Lock.Acquire;
-    Result := inherited GetUsedCount;
+    Result := inherited;
   finally
     Lock.Release;
@@ -88 +88 @@
       end;
     end;
-    Result := inherited Acquire;
+    Result := inherited;
   finally
     Lock.Release;
@@ -98 +98 @@
   try
     Lock.Acquire;
-    inherited Release(Item);
+    inherited;
   finally
     Lock.Release;
@@ -113 +113 @@
 begin
   TotalCount := 0;
-  Lock.Free;
+  FreeAndNil(Lock);
   inherited;
 end;