![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Копирование колекций.Ошибка при 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.
А вообще-то, надо бы видеть код элемента коллекции, самой коллекции и компонента-контейнера.