List Index out of bounds

← →
2Wish (2006-01-15 22:45) [0]

procedure TForm1.Findndestroy; var i:integer; begin for i:=0 to controlcount - 1 do if controls[i] is TImage then if (controls[i] as TImage).tag <> 0 then (controls[i] as TImage).Free; end;

Процедура была созданна, чтобы удалять все объекты TImage у который Tag не равен нулю. Компоненты удаляются, но во время работы программы возникает ошибка List Index out of bounds (3), не могу понять почему. Пытался обработать это как исключительную ситуацию, но ошибка все равно вылазит. В чем ошибка или есть другой способ очистить форму от TImage"ов?

← →
Lamer@fools.ua © (2006-01-15 23:46) [1]

Ну Вы же удаляете контролы, индексы контролов меняются сответсвенно.

Измените цикл на
for i : = ControlCount - 1 downto 0 do

List Index out of bounds Найти похожие ветки