IStack.Clone

Копировать пример

Sub UserProc;
Var
    Stack1, Stack2: IStack;
    i: Integer;
Begin
    Stack1 := New Stack.Create;
    Stack2 := New Stack.Create;
    For i := 0 To Math.RandBetweenI(50, 100) Do
        Stack1.Push("Value " + Math.RandBetweenI(0, 100).ToString);
    End For;
    Stack2 := Stack1.Clone;
    Stack1.Clear;
End Sub UserProc;