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

Удаление компонентов в Run-Time   Найти похожие ветки 

← →
senya   (2004-03-18 21:00) [0]

Здравствуйте! Выдает ошибку при удалении компонентов в Run-Time.
Пишу
 for k:=0 to Panel4.ControlCount-1 do
 begin
     Panel4.Controls[k].Free;
 end;
Когда доходит до поледнего компонента, то ругается
List index out of bounds.

Подскажите чего эт могет быть?

---

← →
Fay ©   (2004-03-18 21:03) [1]

А если
for k := Panel4.ControlCount-1 downto 0 do
???

---

← →
senya   (2004-03-18 21:06) [2]

Fay ©   (18.03.04 21:03) [1]
СПАСИБА!!!! помогло!!!!
но почему так, не один ли фиг???!!

---

← →
Fay ©   (2004-03-18 21:10) [3]

Неужели не доходит?! После Panel4.Controls[k].Free меняется это саму Count, но for об это нихрена не знает

Думаю, можно ещё так
for k:=0 to Panel4.ControlCount-1 do
   Panel4.Controls[0].Free;

---

← →
senya   (2004-03-18 21:12) [4]

ААААААААААААААААА!!!!!! понятна, где-то я на такие грабли уже наступал, но вот запомнить их не получается :-)

---

← →
Verg ©   (2004-03-18 21:12) [5]

while Panel4.ControlCount <>0 do
 Panel4.Controls[0].Free;

---

← →
Fay ©   (2004-03-18 21:19) [6]

8)
while Panel4.ControlCount <> 0 do
Panel4.Controls[Panel4.ControlCount-1].Free;

---

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

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



Память: 0.46 MB
Время: 0.02 c