Ignore:
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:
1 edited

Legend:

Unmodified
Added
Removed
  • Common/UResetableThread.pas

    r329 r367  
    273273procedure TThreadPool.RunInThread(AMethod: TMethodCall);
    274274begin
    275   CheckException;
    276   with TResetableThread(Acquire) do begin
    277     Method := AMethod;
    278     OnFinished := MethodFinish;
    279     Start;
     275  try
     276    with TResetableThread(Acquire) do begin
     277      Method := AMethod;
     278      OnFinished := MethodFinish;
     279      Start;
     280    end;
     281  finally
     282    CheckException;
    280283  end;
    281284end;
Note: See TracChangeset for help on using the changeset viewer.