Changeset 219 for trunk/Packages/Common/Threading.pas

Timestamp:

Jan 17, 2025, 9:05:54 PM (4 days ago)

Author:

chronos

Message:

• Modified: Updated Common package.
• Modified: Remove U prefix from unit names.
• Modified: Use Gneeric.Collections instead of fgl.
• Modified: Do not use global form variables.

File:

• trunk/Packages/Common/Threading.pas (moved) (moved from trunk/Packages/Common/UThreading.pas ) (5 diffs)

trunk/Packages/Common/Threading.pas

@@ -1 @@
-unit UThreading;
-
-{$mode delphi}
+unit Threading;
 
 interface
 
 uses
-  Classes, SysUtils, Forms, fgl, SyncObjs;
+  Classes, SysUtils, Forms, Generics.Collections, SyncObjs;
 
 type
   TExceptionEvent = procedure (Sender: TObject; E: Exception) of object;
   TMethodCall = procedure of object;
-
 
   { TVirtualThread }
@@ -102 +99 @@
   { TThreadList }
 
-  TThreadList = class(TFPGObjectList<TVirtualThread>)
+  TThreadList = class(TObjectList<TVirtualThread>)
     function FindById(Id: TThreadID): TVirtualThread;
     constructor Create; virtual;
@@ -191 +188 @@
 constructor TThreadList.Create;
 begin
-  inherited Create;
+  inherited;
 end;
 
@@ -294 +291 @@
     ThreadListLock.Release;
   end;
-  FThread.Free;
-  inherited Destroy;
+  FreeAndNil(FThread);
+  inherited;
 end;
 
@@ -361 +358 @@
 ThreadListLock := TCriticalSection.Create;
 ThreadList := TThreadList.Create;
-ThreadList.FreeObjects := False;
+ThreadList.OwnsObjects := False;
 
 finalization
 
-ThreadList.Free;
-ThreadListLock.Free;
+FreeAndNil(ThreadList);
+FreeAndNil(ThreadListLock);
 
 end.
-