Changeset 367

Timestamp:

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

Author:

chronos

Message:

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

Files:

• Common/UResetableThread.pas (modified) (1 diff)
• Generics/TemplateGenerics/Specialized/SpecializedList.pas (modified) (3 diffs)

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;

Generics/TemplateGenerics/Specialized/SpecializedList.pas

@@ -148 +148 @@
 TListMethod = class(TListMethodBase)
   procedure CallAll;
-  procedure CallNotifyEvents(Sender: TObject);
+end;
+
+// TListNotifyEventBase<Integer, TNotifyEvent>
+{$DEFINE TGListIndex := Integer}
+{$DEFINE TGListItem := TNotifyEvent}
+{$DEFINE TGList := TListNotifyEventBase}
+{$DEFINE TGListSortCompare := TListNotifyEventSortCompare}
+{$DEFINE TGListToStringConverter := TListNotifyEventToStringConverter}
+{$DEFINE TGListFromStringConverter := TListNotifyEventFromStringConverter}
+{$DEFINE TGListItemArray := TListNotifyEventItemArray}
+{$DEFINE INTERFACE}
+{$I 'GenericList.inc'}
+
+// TListNotifyEvent<Integer, TNotifyEvent>
+TListNotifyEvent = class(TListNotifyEventBase)
+  procedure CallAll(Sender: TObject);
 end;
 
@@ -269 +284 @@
 {$I 'GenericList.inc'}
 
+// TListNotifyEventBase<Integer, TNotifyEvent>
+{$DEFINE TGListIndex := Integer}
+{$DEFINE TGListItem := TNotifyEvent}
+{$DEFINE TGList := TListNotifyEventBase}
+{$DEFINE TGListSortCompare := TListNotifyEventSortCompare}
+{$DEFINE TGListToStringConverter := TListNotifyEventToStringConverter}
+{$DEFINE TGListFromStringConverter := TListNotifyEventFromStringConverter}
+{$DEFINE TGListItemArray := TListNotifyEventItemArray}
+{$DEFINE IMPLEMENTATION}
+{$I 'GenericList.inc'}
+
 
 function StrToStr(Value: string): string;
@@ -334 +360 @@
 end;
 
-procedure TListMethod.CallNotifyEvents(Sender: TObject);
+procedure TListNotifyEvent.CallAll(Sender: TObject);
 var
   I: TGListIndex;