Changeset 295 for Common/UThreading.pas

Timestamp:

Nov 15, 2011, 8:46:43 AM (13 years ago)

Author:

george

Message:

• Moved: Units UPool and UResetableThread moved from CoolWeb to Common. Both units redone to more abstract reprezentation.
• Added: New Port property in class TSqlDatabase.

File:

• Common/UThreading.pas (modified) (5 diffs)

Common/UThreading.pas

@@ -45 +45 @@
   end;
 
+  TVirtualThreadClass = class of TVirtualThread;
+
   TListedThread = class;
 
@@ -102 +104 @@
   TThreadList = class(TObjectList)
     function FindById(Id: Integer): TVirtualThread;
-    constructor Create;
+    constructor Create; virtual;
   end;
 
@@ -187 +189 @@
 begin
   inherited Create;
-  OwnsObjects := False;
 end;
 
@@ -201 +202 @@
         OnException(Parent.FThread, E);
   end;
-                                                                                                                                                                                                                                                                                                                                    end;
+end;
 
 { TListedThread }
@@ -354 +355 @@
 ThreadListLock := TCriticalSection.Create;
 ThreadList := TThreadList.Create;
+ThreadList.OwnsObjects := False;
 
 finalization