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

Generics/TemplateGenerics/Generic/StackImplementation.tpl

@@ -5 +5 @@
 procedure TGStack.Push(Value: TStackItem);
 begin
-  Add(Value);
+  FList.Add(Value);
 end;
 
 function TGStack.Pop: TStackItem;
 begin
-  Result := Extract(Last);
+  Result := FList.Extract(FList.Last);
 end;
 
+constructor TGStack.Create;
+begin
+  FList := TGList.Create;
+end;
+
+destructor TGStack.Destroy;
+begin
+  FList.Free;
+  inherited Destroy;
+end;
+