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

Вниз

Menu out of range   Найти похожие ветки 

 
Peroon   (2002-11-26 22:29) [0]

Пишу цикл удаления всех пунктов меню кроме двух последних. Делаю вот так

for i:=0 to MainForm.PopupMenu1.Items.Count-3 do

MainForm.PopupMenu1.Items.Delete(i);


но Delphi мне постоянно выдает Menu out of range. В чем дело?


 
asmith   (2002-11-26 22:35) [1]

Здесь буквально вчера задавали точно такой же вопрос об удалении строк из списка. Items у любого меню - также список, так что все ранее сказанное справедливо и тут. Опять наступаем на те же самые грабли!


 
oomneeq ©   (2002-11-26 22:40) [2]

C каждым делете реальный каунт уменьшается и поэтому i в конце твоего цикла оказывается больше, чем осталось айтемов в списке
делай либо обратный цикл - даунту либо так:

while MainForm.PopupMenu1.Items.Count>2 do
MainForm.PopupMenu1.Items.Delete(0);

ну и книжки почитывай :)


 
Peroon   (2002-11-26 22:47) [3]

Блин!!! Точно, каунт тоже ведь уменьшается!

Спасибо :))) Это все невнимательность! :))



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

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

Наверх




Память: 0.47 MB
Время: 0.017 c
14-14765
AL2002
2002-11-14 16:33
2002.12.05
Есть ли у вас на дисках что-то такое, чего, IYHO, ни у кого нету?


1-14528
MoorCat
2002-11-26 15:01
2002.12.05
Шрифты в Memo.


4-14878
PHN
2002-10-21 18:32
2002.12.05
Чтение Integer из памяти процесса


14-14802
Anar
2002-11-14 01:00
2002.12.05
Я с этими архивами уже заколебался...


6-14705
Alex_win
2002-10-10 10:05
2002.12.05
Копирование в защищенный паролем ресурс