Ошибка приведения типов

← →
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(( Кто что подскажет в сложившийся ситуации?

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

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