Contains(Value: Variant): Boolean;
Value. Значение элемента, наличие которого необходимо проверить в очереди.
Метод Contains проверяет наличие в очереди элемента с заданным значением.
Метод возвращает значение True, если элемент с указанным значением имеется и False, если элемент отсутствует.
Sub UserProc;
Var
Que: IQueue;
i: Integer;
s: String;
Begin
Que := New Queue.Create;
For i := 0 To Math.RandBetweenI(50, 100) Do
Que.Enqueue("Value " + Math.RandBetweenI(0, 100).ToString);
End For;
If Que.Contains("Value 25") Then
s := "Yes";
Else
s := "No";
End If;
End Sub UserProc;
После выполнения примера будет создана очередь случайных элементов. В переменной s будет содержаться значение Yes, если в очереди содержится элемент со значением «Value 25».
См. также: