Changeset 102 for Generics/TemplateGenerics/Specialized/SpecializedList.pas

Timestamp:

Dec 29, 2010, 9:27:59 AM (14 years ago)

Author:

george

Message:

• Added: TListMethod class.

File:

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

Generics/TemplateGenerics/Specialized/SpecializedList.pas

@@ -84 +84 @@
 {$DEFINE TGListObjectIndex := Integer}
 {$DEFINE TGListObjectItem := TObject}
-{$DEFINE TGListObjectList := TObjectListListObject}
+{$DEFINE TGListObjectList := TListObjectList}
 {$DEFINE TGListObject := TListObject}
-{$DEFINE TGListObjectSortCompare := TObjectListSortCompareObject}
-{$DEFINE TGListObjectToStringConverter := TObjectListToStringConverterObject}
-{$DEFINE TGListObjectFromStringConverter := TObjectListFromStringConverterObject}
+{$DEFINE TGListObjectSortCompare := TListObjectSortCompare}
+{$DEFINE TGListObjectToStringConverter := TListObjectToStringConverter}
+{$DEFINE TGListObjectFromStringConverter := TListObjectFromStringConverter}
 {$DEFINE INTERFACE}
 {$I 'GenericListObject.inc'}
@@ -104 +104 @@
 end;
 
+// TListMethodBase<Integer, TMethod>
+{$DEFINE TGListIndex := Integer}
+{$DEFINE TGListItem := TMethod}
+{$DEFINE TGList := TListMethodBase}
+{$DEFINE TGListSortCompare := TListMethodSortCompare}
+{$DEFINE TGListToStringConverter := TListMethodToStringConverter}
+{$DEFINE TGListFromStringConverter := TListMethodFromStringConverter}
+{$DEFINE INTERFACE}
+{$I 'GenericList.inc'}
+
+// TListMethod<Integer, TMethod>
+TListMethod = class(TListMethodBase)
+  procedure CallAll;
+  procedure CallNotifyEvents(Sender: TObject);
+end;
+
 function StrToStr(Value: string): string;
 
@@ -184 +200 @@
 {$DEFINE TGListObjectIndex := Integer}
 {$DEFINE TGListObjectItem := TObject}
-{$DEFINE TGListObjectList := TObjectListListObject}
+{$DEFINE TGListObjectList := TListObjectList}
 {$DEFINE TGListObject := TListObject}
-{$DEFINE TGListObjectSortCompare := TObjectListSortCompareObject}
-{$DEFINE TGListObjectToStringConverter := TObjectListToStringConverterObject}
-{$DEFINE TGListObjectFromStringConverter := TObjectListFromStringConverterObject}
+{$DEFINE TGListObjectSortCompare := TListObjectSortCompare}
+{$DEFINE TGListObjectToStringConverter := TListObjectToStringConverter}
+{$DEFINE TGListObjectFromStringConverter := TListObjectFromStringConverter}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericListObject.inc'}
 
+// TListMethod<Integer, TMethod>
+{$DEFINE TGListIndex := Integer}
+{$DEFINE TGListItem := TMethod}
+{$DEFINE TGList := TListMethodBase}
+{$DEFINE TGListSortCompare := TListMethodSortCompare}
+{$DEFINE TGListToStringConverter := TListMethodToStringConverter}
+{$DEFINE TGListFromStringConverter := TListMethodFromStringConverter}
+{$DEFINE IMPLEMENTATION}
+{$I 'GenericList.inc'}
 
 
@@ -247 +272 @@
 end;
 
+procedure TListMethod.CallAll;
+var
+  I: TGListIndex;
+begin
+  I := 0;
+  while (I < Count) do begin
+    Items[I];
+    I := I + 1;
+  end;
+end;
+
+procedure TListMethod.CallNotifyEvents(Sender: TObject);
+var
+  I: TGListIndex;
+begin
+  I := 0;
+  while (I < Count) do begin
+    TNotifyEvent(Items[I])(Sender);
+    I := I + 1;
+  end;
+end;
+
 end.