Коллекции

[Sirik]

Есть коллекция col1

как col1 скопировать в col1.

Если я делаю так:
set col2= new collection
set col2=col1

то если я делаю какие-либо изменения в col2, то эти изменения переносятся в col1. получается, что col2 является просто ссылкой на col1. а мне надо сделать копию
как?

[GSerg]

Ну дык поэлементным копированием...

[Sirik]

2 GSerg

Да, так я знаю. А что простой, типа Copy, нет?

[GSerg]

Типа нет.

[Sirik]

Спасибо

[alibek]

В таких случаях хорошим тоном является нечто подобное:
Set col2 = col1.Clone()

Разумеется, внутри .Clone выполняется то самое поэлементное копирование, но снаружи выглядит симпатично.

[Sirik]

Я что-то недопонимаю.

У меня есть такая свойство формы:

Код: Выделить всё

Public Property Let Put_App(ByVal vNewValue As Collection)
    Dim I As Long
   
    Per_Form.Saved_App = False
   
    Set col_App = Nothing
    Set col_App_ORI = Nothing
   
    Set col_App = vNewValue
   
    Set col_App_ORI = New Collection
   
    For I = 1 To col_App.Count
        col_App_ORI.Add col_App(I)
    Next
   
End Property


Тут я передаю коллекцию. Ссылка на неё копируется в col_App. А в col_App_ORI копируется всё содержимое передаваемой коллекции.

Когда я делаю какие-либо изменения в col_App, они передаются и в col_App_ORI. Почему?

[_Hiser_]

А ещё можно использовать CopyMemory.

[alibek]

Да потому.
Не
Set col_App = vNewValue
а
Set col_App = New ...
col_App.Name= vNewValue.Name

[alibek]

А ещё можно использовать CopyMemory.

Для коллекций? Are you sure?

[GSerg]

Как именно передаются изменения?

[Sirik]

2 alibek
Мне надо чтобы col_App_ORI оставалась ориганальной, т.е. все изменения, которые происходят в других коллекциях, её не касались

2 GSerg

Все мои коллекции состоят из Итемов такой конструкции:
X
Y
Z
A
O
T

Когда я меняю значения, например, col_App(1).X=10
то если посмотреть в col_App_ORI(1).X, там тоже 10

[Andrey Fedorov]

В таких случаях хорошим тоном является нечто подобное:
Set col2 = col1.Clone()

Разумеется, внутри .Clone выполняется то самое поэлементное копирование, но снаружи выглядит симпатично.

Угу. Самый правильный способ.
Реализуем ICloneable интерфейс

Кстати, ничего сложного-то нет...

[GSerg]

Объекты, что ль?

[Sirik]

Народ, ну серьёзно!
Очень срочно надо!

И как Clone сделать?

[GSerg]

Да никак, это про .NET

[Sirik]

А что тогда делать?

[GSerg]

Повторю вопрос - ты объекты в коллекцию добавляешь?

[Sirik]

Нет, классы

[GSerg]

!@#$%^

А они не объекты, по-твоему?
Учить матчасть! И копировать ещё и объекты. Ты на данный момент копируешь только указатели.

[Sirik]

Я понимаю, что копирую только указатели
Как скопировать имеено содержимое?

[GSerg]

Точно тем же способом, каким ты скопировал коллекцию. Для каждого объекта =new, с последующим присвоением каждой проперти...

[Andrey Fedorov]

В качестве коллекции используй класс в котором реализуй нужные методы/свойства (в том числе и метод Clone (создающий новый экземпляр базового класса с копированием в него всех элементов)...

[Sirik]

Я сделал как сказал GSerg - всё работает.
Как я сам это не понял?