IQueue.Clone

Синтаксис

Clone: IQueue;

Описание

Метод Clone создает копию очереди.

Пример

Sub Main;

Var

Que, Que1: IQueue;

i: Integer;

Begin

Que:=New Queue.Create;

Que1:=New Queue.Create;

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

Que.Enqueue("Value "+Math.RandBetweenI(0,100).ToString);

End For;

Que1:=Que.Clone;

Que.Clear;

End Sub Main;

После выполнения примера в очереди «Que1» будет содержаться копия очереди «Que».

См. также:

IQueue