Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.26;
Скачать: CL | DM;

Вниз

привидение типа в TList   Найти похожие ветки 

 
AlexT1000   (2002-12-17 11:30) [0]

У меня есть ТList в нем хранятся однотипные объекты.
Как сделать так чтобы мне не приходилось каждый раз писать

TMyObject(MyList[i]).MyProperty := ...

хочеться так

MyList[i].MyProperty := ...


 
Anatoly Podgoretsky ©   (2002-12-17 11:41) [1]

Сделай наследника и переопредели/реализуй так как тебе нужно


 
Sha ©   (2002-12-17 11:44) [2]

Принято охотиться на привидений при помощи своих классов.


 
Calm ©   (2002-12-17 12:28) [3]

В наследнике нужно объявить свойство Items[i:integer]:TMyObjectClass
и на чтение свойства повесить метод
function GetItems(i:integer):TMyObjectClass;
begin
Result:=TMyObjectClass(inherited Items[i]);
end;

Для удобства еще можно переобъявить метод Add


 
oomneeq ©   (2002-12-17 13:24) [4]

в тему
http://www.delphi32.co.yu/preuzeti_tekstovi/new_list_objects.htm



Страницы: 1 вся ветка

Текущий архив: 2002.12.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-85896
brat
2002-12-16 23:34
2002.12.26
Помогите перейти к базису ИЛИ-НЕ


14-86173
Дмитрий К.К.
2002-12-06 16:12
2002.12.26
Шаблоны HTML-страниц для сайта


1-85978
Seldon
2002-12-15 23:46
2002.12.26
Как сохранить ветку реестра?


6-86053
olphi
2002-10-27 13:34
2002.12.26
Как узнать трафик сессии (инета) после её завершения?


1-85919
Vlad_T
2002-12-12 16:08
2002.12.26
StringGrid