Changeset 30 for trunk/Components/TemplateGenerics/Generic/GenericQueue.inc

Timestamp:

Sep 8, 2012, 9:28:39 PM (12 years ago)

Author:

chronos

Message:

• Updated: Component versions.
• Added: Missing forms.

Location:

trunk

Files:

• . (modified) (1 prop)
• Components/TemplateGenerics (modified) (1 prop)
• Components/TemplateGenerics/Generic/GenericQueue.inc (modified) (4 diffs)

trunk

@@ -3 +3 @@
 backup
 tunneler.exe
+heaptrclog.trc

@@ -3 +3 @@
 backup
 tunneler.exe
+heaptrclog.trc

trunk/Components/TemplateGenerics/Generic/GenericQueue.inc

@@ -11 +11 @@
 {$I 'GenericList.inc'}
 
-  // TGQueue<TSetIndex, TSetItem> = class(TGList)
+  // TGQueue<TQueueIndex, TQueueItem> = class(TGList)
   TGQueue = class
   private
     FList: TGList;
+    function GetCount: TGQueueIndex;
   public
     procedure Enqueue(Value: TGQueueItem);
+    procedure EnqueueArray(Values: array of TGQueueItem);
+    procedure EnqueueList(List: TGList);
     function Dequeue: TGQueueItem;
     function Peek: TGQueueItem;
@@ -22 +25 @@
     destructor Destroy; override;
     property List: TGList read FList;
+    property Count: TGQueueIndex read GetCount;
   end;
 
@@ -54 +58 @@
 end;
 
+procedure TGQueue.EnqueueArray(Values: array of TGQueueItem);
+begin
+  FList.AddArray(Values);
+end;
+
+procedure TGQueue.EnqueueList(List: TGList);
+begin
+  FList.AddList(List);
+end;
+
 function TGQueue.Peek: TGQueueItem;
 begin
@@ -75 +89 @@
 end;
 
+function TGQueue.GetCount: TGQueueIndex;
+begin
+  Result := FList.Count;
+end;
+
 {$UNDEF IMPLEMENTATION}
 {$ENDIF}

@@ -3 +3 @@
 backup
 tunneler.exe
+heaptrclog.trc