for i:=0 to ScrollBox1.ControlCount-1

← →
denis24 (2004-11-23 11:08) [0]

Подскажите пожалуста
почему когда в scrollbox1 нет ни одного контрола внутрь цикла всеравно заходит и соотв ошибка?
Пишу так
for i:=0 to ScrollBox3.ControlCount-1 do
if (ScrollBox3.Controls[i] is TPanel) then....

← →
Skyle © (2004-11-23 11:12) [1]

А может не там ошибка?

← →
Reindeer Moss Eater © (2004-11-23 11:12) [2]

почему когда в scrollbox1 нет ни одного контрола

Потому что в ScrollBox3 есть контролы

← →
MBo © (2004-11-23 11:14) [3]

Телепатия - измени тип i с беззнакового типа на Integer

← →
Reindeer Moss Eater © (2004-11-23 11:17) [4]

Телекинез - организуя цикл по контролам сколбокса один, не используй индекс цикла для обращения к контролам скролбокса три

← →
Jay (2004-11-23 11:21) [5]

В цикле for i := 0 to 0 do всё же будет один виток, сделай типа for i := 1 to 0 do

← →
Reindeer Moss Eater © (2004-11-23 11:23) [6]

Если цикл получился for i := 0 to 0 , то это значит, что есть один котрол и он имеет индекс 0.

← →
Jay (2004-11-23 11:27) [7]

Я имею в виду, что в написаном в вопросе цикле будет один виток, даже если нету контролов, ну и соответственно ошибка

← →
Jay (2004-11-23 11:30) [8]

Поставь в начале
if ScrollBox3.ControlCount <> 0 then
...

> Я имею в виду, что в написаном в вопросе цикле будет один
> виток, даже если нету контролов

Не будет там витка без контролов - это for i:=0 to -1

>Jay (23.11.04 11:27) [7]
Ты неправ

← →
denis24 (2004-11-23 11:40) [11]

поставил i:integer
и все
СПАСИБО!

← →
Jay (2004-11-23 11:41) [12]

Может и не прав, а что если переменная цикла, например, Byte?

for i:=0 to ScrollBox1.ControlCount-1 Найти похожие ветки