Главная страница
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.021 c
1-83132
INTAARI
2004-01-15 11:28
2004.01.26
Чем лучше строить графики???


14-83268
Livid
2004-01-05 12:33
2004.01.26
Нахождение пределов функций


3-83095
Orxan
2003-12-29 17:04
2004.01.26
Ищу DBGrid, в котором:


6-83230
PN Soft
2003-10-28 13:24
2004.01.26
e-mail


3-83105
SaperXL
2003-12-28 16:09
2004.01.26
Interbase vs. Firebird