Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Вниз

привидение типа в 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.028 c
1-85965
Alpine
2002-12-15 17:53
2002.12.26
Как сделать Combobox неменяемым (Read Only) ?


14-86141
dmk
2002-12-03 02:15
2002.12.26
Linux 7.3 и W2K несовместимы?


4-86220
KUZIA
2002-11-12 13:10
2002.12.26
Как написать скринсавер


1-85898
Пономарев Андрей
2002-12-16 10:30
2002.12.26
создание расширений IDE


3-85836
Vit
2002-12-05 14:45
2002.12.26
Хранимой процедуре IB не могу передать параметр с кириллицей





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский