IArrayList.Clone

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

Sub UserProc;
Var
    ArrayL, ArrayL1: IArrayList;
    i: Integer;
Begin
    ArrayL := New ArrayList.Create;
    ArrayL1 := New ArrayList.Create;
    For i := 0 To Math.RandBetweenI(0, 100) Do
        ArrayL.Add(Math.RandBetweenI(0, 100));
    End For;
    ArrayL1 := ArrayL.Clone;
    ArrayL.Clear;
End Sub UserProc;