Changeset 76 for Generics/TemplateGenerics/Generic/StackInterface.tpl

Timestamp:

Oct 29, 2010, 7:49:29 AM (14 years ago)

Author:

george

Message:

• Added: Partial generic set implementation.
• Modified: TGStack, TGQueue and TGSet owns TGList instead of inherits.
• Added: TList and TListPointer benchmark comparasion.

File:

• Generics/TemplateGenerics/Generic/StackInterface.tpl (modified) (1 diff)

Generics/TemplateGenerics/Generic/StackInterface.tpl

@@ -4 +4 @@
   {$INCLUDE 'ListInterface.tpl'}
 
-  // TGStack<TListIndex, TListItem> = class(TGList)
-  TGStack = class(TGList)
+  // TGStack<TStackIndex, TStackItem> = class(TGList)
+  TGStack = class
   private
+    FList: TGList;
   public
     procedure Push(Value: TStackItem);
     function Pop: TStackItem;
+    constructor Create;
+    destructor Destroy; override;
+    property List: TGList read FList;
   end;