Форум: "Основная";
Текущий архив: 2004.01.26;
Скачать: [xml.tar.bz2];
ВнизОшибка приведения типов Найти похожие ветки
← →
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;
Скачать: [xml.tar.bz2];
Память: 0.45 MB
Время: 0.004 c