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

Вниз

Ошибка приведения типов   Найти похожие ветки 

 
Miwa ©   (2004-01-14 23:10) [0]

На этапе выполнения программы возникает сабж при попытке исполнения следующего кода:
c:=(TListBox((sender as TPopupMenu).PopupComponent).Items.Objects[i] as TFilm).Total;
где:

TFilm = class(TObject);
...
function Total:string;
...
end;

Ошибка возникает при попытке сохранения содержимого листбокса в файл. На форме несколько лисбоксов с одинаковым попапменю.
Чего я тут делаю неаправильно?


 
miwa ©   (2004-01-14 23:20) [1]

Упс, прошу прощения, даже еще на строку раньше:
for i:=0 to TListBox((sender as TPopupMenu).PopupComponent).Count do begin


 
Юрий Федоров ©   (2004-01-14 23:57) [2]

Видимо sender не TPopupMenu
выведи
ShowMessage(sender.Classname), и все станет понятно
и Count - 1


 
miwa ©   (2004-01-15 00:31) [3]

Мда. Вы правы. Спасибо за подсказку. А с -1 я постоянно обламываюсь :о((.
Да только вот незадача - TMenuItem не имеет свойства PopupComponent... :o(( Кто что подскажет в сложившийся ситуации?


 
miwa ©   (2004-01-15 00:39) [4]

Упс. Извините, сперва написал, а потом подумал (вот они - проблемы слепого набора ;о) ). Проблема решается тривиально - попапменю указывается вручную, напрямую, что-то типа:
or i:=0 to TListBox(PopupMenu1.PopupComponent).Count do begin



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

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

Наверх




Память: 0.47 MB
Время: 0.011 c
3-83096
}|{yk
2003-12-29 18:21
2004.01.26
Задачка - ваши варианты


1-83191
MV
2004-01-14 15:07
2004.01.26
Классы с одинаковым кодом, но разными типами свойств.


1-83205
sbuffoon
2004-01-14 03:26
2004.01.26
работа со звуком


3-83101
kiko
2003-12-26 15:44
2004.01.26
Помогите разобраться с индексами


1-83159
Mouse
2004-01-15 10:49
2004.01.26
Пару вопросов по TBitmap