Changeset 128 for trunk/Packages/Common/UThreading.pas

Timestamp:

Apr 8, 2022, 9:43:55 PM (2 years ago)

Author:

chronos

Message:

• Modified: Use Generics.Collection instead of fgl for better Delphi compatibility.

File:

• trunk/Packages/Common/UThreading.pas (modified) (3 diffs)

trunk/Packages/Common/UThreading.pas

@@ -4 +4 @@
 
 uses
-  Classes, SysUtils, Forms, fgl, SyncObjs;
+  Classes, SysUtils, Forms, Generics.Collections, SyncObjs;
 
 type
@@ -99 +99 @@
   { TThreadList }
 
-  TThreadList = class(TFPGObjectList<TVirtualThread>)
+  TThreadList = class(TObjectList<TVirtualThread>)
     function FindById(Id: TThreadID): TVirtualThread;
     constructor Create; virtual;
@@ -358 +358 @@
 ThreadListLock := TCriticalSection.Create;
 ThreadList := TThreadList.Create;
-ThreadList.FreeObjects := False;
+ThreadList.OwnsObjects := False;
 
 finalization