Changeset 367 for Common/UResetableThread.pas

Timestamp:

May 28, 2012, 11:39:00 AM (12 years ago)

Author:

chronos

Message:

• Added: Specialized class TListNotifyEvent of generic TGList.
• Fixed: Exception handling in TThreadPool.

File:

• Common/UResetableThread.pas (modified) (1 diff)

Common/UResetableThread.pas

@@ -273 +273 @@
 procedure TThreadPool.RunInThread(AMethod: TMethodCall);
 begin
-  CheckException;
-  with TResetableThread(Acquire) do begin
-    Method := AMethod;
-    OnFinished := MethodFinish;
-    Start;
+  try
+    with TResetableThread(Acquire) do begin
+      Method := AMethod;
+      OnFinished := MethodFinish;
+      Start;
+    end;
+  finally
+    CheckException;
   end;
 end;