Форум: "Основная";
Текущий архив: 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
