Changeset 398

Timestamp:

Aug 7, 2012, 2:42:58 PM (12 years ago)

Author:

chronos

Message:

• Added: TBaseEvent class to SpecializedList in TemplateGenerics.

File:

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

Generics/TemplateGenerics/Specialized/SpecializedList.pas

@@ -166 +166 @@
 end;
 
+
+TBaseEvent = procedure of object;
+
+// TListSimpleEventBase<Integer, TBaseEvent>
+{$DEFINE TGListIndex := Integer}
+{$DEFINE TGListItem := TBaseEvent}
+{$DEFINE TGList := TListSimpleEventBase}
+{$DEFINE TGListSortCompare := TListSimpleEventSortCompare}
+{$DEFINE TGListToStringConverter := TListSimpleEventToStringConverter}
+{$DEFINE TGListFromStringConverter := TListSimpleEventFromStringConverter}
+{$DEFINE TGListItemArray := TListSimpleEventItemArray}
+{$DEFINE INTERFACE}
+{$I 'GenericList.inc'}
+
+// TListSimpleEvent<Integer, TSimpleEvent>
+TListSimpleEvent = class(TListSimpleEventBase)
+  procedure CallAll;
+end;
+
+
 function StrToStr(Value: string): string;
 
@@ -295 +315 @@
 {$I 'GenericList.inc'}
 
+// TListSimpleEventBase<Integer, TBaseEvent>
+{$DEFINE TGListIndex := Integer}
+{$DEFINE TGListItem := TBaseEvent}
+{$DEFINE TGList := TListSimpleEventBase}
+{$DEFINE TGListSortCompare := TListSimpleEventSortCompare}
+{$DEFINE TGListToStringConverter := TListSimpleEventToStringConverter}
+{$DEFINE TGListFromStringConverter := TListSimpleEventFromStringConverter}
+{$DEFINE TGListItemArray := TListSimpleEventItemArray}
+{$DEFINE IMPLEMENTATION}
+{$I 'GenericList.inc'}
+
+
 
 function StrToStr(Value: string): string;
@@ -300 +332 @@
   Result := Value;
 end;
+
+{ TListSimpleEvent }
+
+procedure TListSimpleEvent.CallAll;
+var
+  I: TGListIndex;
+begin
+  I := 0;
+  while (I < Count) do begin
+    TBaseEvent(Items[I])();
+    I := I + 1;
+  end;
+end;
+
 
 { TListChar }