Changeset 367


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.
Files:
2 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;
  • Generics/TemplateGenerics/Specialized/SpecializedList.pas

    r342 r367  
    148148TListMethod = class(TListMethodBase)
    149149  procedure CallAll;
    150   procedure CallNotifyEvents(Sender: TObject);
     150end;
     151
     152// TListNotifyEventBase<Integer, TNotifyEvent>
     153{$DEFINE TGListIndex := Integer}
     154{$DEFINE TGListItem := TNotifyEvent}
     155{$DEFINE TGList := TListNotifyEventBase}
     156{$DEFINE TGListSortCompare := TListNotifyEventSortCompare}
     157{$DEFINE TGListToStringConverter := TListNotifyEventToStringConverter}
     158{$DEFINE TGListFromStringConverter := TListNotifyEventFromStringConverter}
     159{$DEFINE TGListItemArray := TListNotifyEventItemArray}
     160{$DEFINE INTERFACE}
     161{$I 'GenericList.inc'}
     162
     163// TListNotifyEvent<Integer, TNotifyEvent>
     164TListNotifyEvent = class(TListNotifyEventBase)
     165  procedure CallAll(Sender: TObject);
    151166end;
    152167
     
    269284{$I 'GenericList.inc'}
    270285
     286// TListNotifyEventBase<Integer, TNotifyEvent>
     287{$DEFINE TGListIndex := Integer}
     288{$DEFINE TGListItem := TNotifyEvent}
     289{$DEFINE TGList := TListNotifyEventBase}
     290{$DEFINE TGListSortCompare := TListNotifyEventSortCompare}
     291{$DEFINE TGListToStringConverter := TListNotifyEventToStringConverter}
     292{$DEFINE TGListFromStringConverter := TListNotifyEventFromStringConverter}
     293{$DEFINE TGListItemArray := TListNotifyEventItemArray}
     294{$DEFINE IMPLEMENTATION}
     295{$I 'GenericList.inc'}
     296
    271297
    272298function StrToStr(Value: string): string;
     
    334360end;
    335361
    336 procedure TListMethod.CallNotifyEvents(Sender: TObject);
     362procedure TListNotifyEvent.CallAll(Sender: TObject);
    337363var
    338364  I: TGListIndex;
Note: See TracChangeset for help on using the changeset viewer.