Changeset 76 for Generics/TemplateGenerics/Generic/QueueInterface.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/QueueInterface.tpl (modified) (1 diff)

Generics/TemplateGenerics/Generic/QueueInterface.tpl

@@ -4 +4 @@
   {$INCLUDE 'ListInterface.tpl'}
 
-  // TGQueue<TListIndex, TListItem> = class(TGList)
-  TGQueue = class(TGList)
+  // TGQueue<TSetIndex, TSetItem> = class(TGList)
+  TGQueue = class
   private
+    FList: TGList;
   public
     procedure Enqueue(Value: TQueueItem);
     function Dequeue: TQueueItem;
     function Peek: TQueueItem;
+    constructor Create;
+    destructor Destroy; override;
+    property List: TGList read FList;
   end;