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

Generics/TemplateGenerics/Generic/QueueImplementation.tpl

@@ -5 +5 @@
 procedure TGQueue.Enqueue(Value: TQueueItem);
 begin
-  Add(Value);
+  FList.Add(Value);
 end;
 
 function TGQueue.Peek: TQueueItem;
 begin
-  Result := First;
+  Result := FList.First;
+end;
+
+constructor TGQueue.Create;
+begin
+  FList := TGList.Create;
+end;
+
+destructor TGQueue.Destroy;
+begin
+  FList.Free;
+  inherited Destroy;
 end;
 
 function TGQueue.Dequeue: TQueueItem;
 begin
-  Result := Extract(First);
+  Result := FList.Extract(FList.First);
 end;