IStack.Pop

Синтаксис

Pop: Variant;

Описание

Метод Pop извлекает значение последнего, помещенного в стек, элемента. После извлечения элемент удаляется из стека.

Пример

Sub Main;

Var

Stack1: IStack;

i: Integer;

Begin

Stack1:=New Stack.Create;

For i:=0 To Math.RandBetweenI(50,100) Do

Stack1.Push("Value "+Math.RandBetweenI(0,100).ToString);

End For;

For i:=0 To Math.RandBetweenI(0,50) Do

Stack1.Pop;

End For;

i:=Stack1.Count;

End Sub Main;

После выполнения примера будет создан стек случайных элементов, часть элементов будет извлечена и в переменной «i» будет содержаться количество элементов, оставшихся в стеке.

См. также:

IStack