delphi 队列 不循环的数组

Delphi 中可以使用动态数组来实现不循环队列。具体实现如下：

1. 定义动态数组，用于存储队列元素。

var
  Queue: array of Integer; // 动态数组

2. 定义队列的头和尾指针。

var
  Head, Tail: Integer; // 队列的头和尾指针

3. 在队列初始化时，将头和尾指针都设置为 0。

Head := 0;
Tail := 0;

4. 入队操作时，将元素添加到队列尾部，并将尾指针后移一位。

procedure Enqueue(Element: Integer);
begin
  SetLength(Queue, Length(Queue) + 1);
  Queue[Tail] := Element;
  Inc(Tail);
end;

5. 出队操作时，将队列头部元素取出，并将头指针后移一位。

function Dequeue: Integer;
begin
  Result := Queue[Head];
  Inc(Head);
end;

6. 判断队列是否为空的方法为头指针是否等于尾指针。

function IsEmpty: Boolean;
begin
  Result := Head = Tail;
end;

以上就是使用 Delphi 实现不循环队列的方法。