Changeset 367 for Generics

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:

• Generics/TemplateGenerics/Specialized/SpecializedList.pas (modified) (3 diffs)

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;