Удаление компонентов в 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]

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

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

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

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