Peek: Variant;
Метод Peek извлекает из очереди значение элемента, помещенное первым. После извлечения элемент не удаляется из очереди.
Sub Main;
Var
Que: IQueue;
i: Integer;
v: Variant;
Begin
Que:=New Queue.Create;
For i:=0 To Math.RandBetweenI(50,100) Do
Que.Enqueue("Value "+Math.RandBetweenI(0,100).ToString);
End For;
v:=Que.Peek;
End Sub Main;
После выполнения примера будет создана очередь случайных элементов и в переменной «v» будет содержаться значение, первого помещенного в очередь, элемента.
См. также: