Changeset 426 for Generics/TemplateGenerics/Generic/GenericListObject.inc

Timestamp:

Sep 24, 2012, 1:47:39 PM (12 years ago)

Author:

chronos

Message:

• Modified: Custom types for TemplateGenerics moved from global space to class local space.
• Added: Partial GenericFileList class.

File:

• Generics/TemplateGenerics/Generic/GenericListObject.inc (modified) (3 diffs)

Generics/TemplateGenerics/Generic/GenericListObject.inc

@@ -4 +4 @@
 {$DEFINE TGListItem := TGListObjectItem}
 {$DEFINE TGList := TGListObjectList}
-{$DEFINE TGListSortCompare := TGListObjectSortCompare}
-{$DEFINE TGListToStringConverter := TGListObjectToStringConverter}
-{$DEFINE TGListFromStringConverter := TGListObjectFromStringConverter}
-{$DEFINE TGListItemArray := TGListObjectItemArray}
 {$DEFINE INTERFACE}
 {$I 'GenericList.inc'}
@@ -42 +38 @@
 {$DEFINE TGListItem := TGListObjectItem}
 {$DEFINE TGList := TGListObjectList}
-{$DEFINE TGListSortCompare := TGListObjectSortCompare}
-{$DEFINE TGListToStringConverter := TGListObjectToStringConverter}
-{$DEFINE TGListFromStringConverter := TGListObjectFromStringConverter}
-{$DEFINE TGListItemArray := TGListObjectItemArray}
 {$DEFINE IMPLEMENTATION}
 {$I 'GenericList.inc'}
@@ -108 +100 @@
 begin
   Clear;
-  inherited Destroy;
+  inherited;
 end;