Changeset 90 for trunk/Packages/TemplateGenerics/Generic/GenericQueue.inc

Timestamp:

Sep 7, 2012, 6:45:53 AM (12 years ago)

Author:

chronos

Message:

• Upraveno: Aktualizace balíčku TemplateGenerics na novější verzi. Se starou nešel projekt správně přeložit.

File:

• trunk/Packages/TemplateGenerics/Generic/GenericQueue.inc (modified) (4 diffs)

trunk/Packages/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}