Changeset 89 for trunk/Packages/Common/UResetableThread.pas

Timestamp:

Sep 6, 2012, 8:29:27 PM (12 years ago)

Author:

chronos

Message:

• Přidáno: Balíček ModularSystem namísto vlastní implementace.
• Upraveno: Aktualizace balíčku Common.

File:

• trunk/Packages/Common/UResetableThread.pas (modified) (2 diffs)

trunk/Packages/Common/UResetableThread.pas

@@ -54 +54 @@
     procedure MethodFinish(Sender: TObject);
   protected
-    procedure ThreadException(Sender: TObject; E: Exception);
     function NewItemObject: TObject; override;
   public
     LastExceptionClass: TClass;
     LastExceptionMessage: string;
+    procedure ThreadException(Sender: TObject; E: Exception);
     procedure CheckException;
     procedure WaitForEmpty;
@@ -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;