Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.007 c