Changeset 102 for Generics

Timestamp:

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

Author:

george

Message:

• Added: TListMethod class.

Location:

Generics/TemplateGenerics

Files:

• Specialized/SpecializedList.pas (modified) (4 diffs)
• TemplateGenerics.lpk (modified) (2 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.

Generics/TemplateGenerics/TemplateGenerics.lpk

@@ -18 +18 @@
     </CompilerOptions>
     <Description Value="Generic classes implemented as templates."/>
-    <Version Minor="2"/>
+    <Version Minor="3"/>
     <Files Count="16">
       <Item1>
@@ -92 +92 @@
     </RequiredPkgs>
     <UsageOptions>
-      <IncludePath Value="Generic\"/>
-      <UnitPath Value="$(PkgOutDir)\"/>
+      <IncludePath Value="Generic"/>
+      <UnitPath Value="$(PkgOutDir)"/>
     </UsageOptions>
     <PublishOptions>