| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
привидение типа в TList
AlexT1000 © (2002-12-17 11:30:00)У меня есть ТList в нем хранятся однотипные объекты.
Как сделать так чтобы мне не приходилось каждый раз писать
TMyObject(MyList[i]).MyProperty := ...
хочеться так
MyList[i].MyProperty := ...
oomneeq (2002-12-17 13:24:00) [1]в тему
http://www.delphi32.co.yu/preuzeti_tekstovi/new_list_objects.htm
Calm (2002-12-17 12:28:00) [2]В наследнике нужно объявить свойство Items[i:integer]:TMyObjectClass
и на чтение свойства повесить метод
function GetItems(i:integer):TMyObjectClass;
begin
Result:=TMyObjectClass(inherited Items[i]);
end;
Для удобства еще можно переобъявить метод Add
Sha (2002-12-17 11:44:00) [3]Принято охотиться на привидений при помощи своих классов.
Anatoly Podgoretsky (2002-12-17 11:41:00) [4]Сделай наследника и переопредели/реализуй так как тебе нужно
| |
