property Count : integer read FCount;
property Name : TtdNameString read FName write FName;
end;
Конструктор и деструктор мало чем отличаются от соответствующих методов класса TtdArrayStack.
Листинг 3.32. Конструктор и деструктор класса TtdArrayQueue
constructor TtdArrayQueue.Create( aDispose : TtdDisposeProc;
aCapacity : integer);
begin
inherited Create;
{сохранить процедуру удаления}
FDispose := aDispose;
{создать внутренний массив TList и установить его размер равным aCapacity элементов}
FList := TList.Create;
if (aCapacity <= 1) then
aCapacity := 16;
FList.Count := aCapacity;
end;
destructor TtdArrayQueue.Destroy;
begin
FList.Free;
inherited Destroy;
end;
Самое интересное происходит в методах Enqueue и Dequeue.
Листинг 3.33. Методы Enqueue и Dequeue класса TtdArrayQueue
function TtdArrayQueue.Dequeue : pointer;
begin
{убедиться, что очередь не пуста}
if (Count = 0) then
aqError(tdeQueueIsEmpty, 'Dequeue');
{элемент, снимаемый с очереди, находится в ее начале}
Result := FList[FHead];
{переместить индекс начала очереди и убедиться, что он все еще действителен; уменьшить количество элементов на 1}
FHead := (FHead + 1) mod FList.Count;
dec(FCount);
end;
procedure TtdArrayQueue.Enqueue(aItem : pointer);
begin
{добавить элемент в конец очереди}
FList[FTail] := aItem;
{переместить индекс конца очереди и убедиться, что он все еще действителен; увеличить количество элементов на 1}
FTail := (FTail + 1) mod FList.Count;
inc(FCount);
{если после добавления очередного элемента мы обнаруживаем, что значения индексов начала и конца очереди равны, увеличить размер массива}
if (FTail = FHead) then
aqGrow;
end;
Как видите, снятие элемента с очереди включает возврат элемента, находящегося в позиции с индексом начала очереди, а затем увеличение индекса на 1. Постановка в очередь включает запись элемента в позицию с индексом конца очереди и увеличение индекса на 1. Если конец очереди достигает ее начала, размер массива увеличивается с помощью метода aqGrow:
Листинг 3.34. Расширение размера экземпляра класса TtdArrayQueue
procedure TtdArrayQueue.aqGrow;