Changeset 69 for Generics/TemplateGenerics/List/ObjectList.pas

Timestamp:

Oct 27, 2010, 9:28:58 PM (14 years ago)

Author:

george

Message:

• Added: Demo application.

File:

• Generics/TemplateGenerics/List/ObjectList.pas (modified) (2 diffs)

Generics/TemplateGenerics/List/ObjectList.pas

@@ -9 +9 @@
 
 type
-  TIndexType = Integer;
-  TItemType = TObject;
+  TListIndex = Integer;
+  TListItem = TObject;
 {$INCLUDE 'GenericListInterface.tpl'}
 
 type
-  TObjectGList = class(TGList)
+
+  { TObjectList }
+
+  TObjectList = class(TGList)
+    //OwnObjects: Boolean;
+    destructor Destroy; override;
   end;
 
@@ -22 +27 @@
 
 
+{ TObjectList }
+
+destructor TObjectList.Destroy;
+begin
+  inherited Destroy;
+end;
+
 end.