Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Копирование колекций.Ошибка при assign. [D6, Win2k]


shine ©   (2004-08-05 03:02:00) 

Надо скопировать содержимое одной колекции в другую.
Делаю так:  ListItemArraySelectDlg.TmpControlList.assign(ListItemArraySelectDlg.Layout.ControlList);
где
TmpControlList:TControlList;
 ...
 TCustomLayout = class(TControl)
 private
   FControlList: TControlList;
   ...
   public
   procedure SetCL(AControlList:TControlList);
   ...
   published
   property ControlList: TControlList read FControlList write SetCl;
   ...
   end;
 TControlList = class(TOwnedCollection)
 ...
 public
 property Items[Index: Integer]: TLayoutItem read GetItem write
 SetItem; default;
 ...
 end;
 TLayoutItem = class(TCollectionItem);

В общем тип у них одинаковый.Если обе коллекции не содержат элементов, то все нормально.(в смысле ошибки не возникает)
Если одна из коллекций не пустая, то выдает ошибку:
Cannot assign a TLayoutItem to a TLayoutItem.
Пробовал делать присваивание: Layout.ControlList:=TmpControlList
потом проверяю Layout.ControlList.Count- выдает, что количество ненулевое,однако в object inspector новых элементов коллекции не добавляется.

Как же все-таки скопировать содержимое одной коллеции в другую?

Заранее спасибо.

P.S. Если кто-то интересуется, зачем мне все это, то я делаю редактор компонента и стандартный редактор колекций меня не очень устраивает.


shine   (2004-08-05 12:17:00) [1]

Огромное Спасибо!!! Получилось.Работает.


shine   (2004-08-05 11:56:00) [2]

Спасибо, сейчас попробую.


Digitman   (2004-08-05 08:44:00) [3]

в классе TLayoutItem переопредели виртуальный метод AssignTo()
тем самым ты "научишь" объект этого класса копировать себя в другой объект того же класса


Юрий Зотов   (2004-08-05 08:35:00) [4]

> Cannot assign a TLayoutItem to a TLayoutItem.

Перекройте AssignTo у TLayoutItem и там напишите присвоение Target свойств Self.

А вообще-то, надо бы видеть код элемента коллекции, самой коллекции и компонента-контейнера.


Наверх

Титульная страница Поиск, карта сайта Написать письмо