| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Ошибка [D6]

jenbbond ©   (2002-05-25 10:12:00) 

n:=0;
for i:=0 to ComponentCount-1 do
if Components[i] is TBitBtnWithColor then
if n=1 then
TBitBtnWithColor(Components[i]).Color:=clRed;
if n=0 then
TBitBtnWithColor(Components[i]).Color:=clGreen;

Пытаюсь выполнить код , но при выполнении вылетает ошибка
Project1.exe raised exception class EListError whit message "List index out of bounds(18)".

Подскажите в чем проблема млжет быть!!!

---

Anatoly Podgoretsky   (2002-05-25 11:18:00) [1]

Если это именно то, что он хочет сделать, то вместо IF
case N of
0: TBitBtnWithColor(Components[i]).Color:=clGreen;
1: TBitBtnWithColor(Components[i]).Color:=clRed;
end;

---

Внук   (2002-05-25 11:02:00) [2]

Наверное, так:
n:=0;
for i:=0 to ComponentCount-1 do
if Components[i] is TBitBtnWithColor then
if n=1 then TBitBtnWithColor(Components[i]).Color:=clRed
else
if n=0 then TBitBtnWithColor(Components[i]).Color:=clGreen;

---

Виктор Щербаков   (2002-05-25 10:24:00) [3]

Переменная i используется сразу после цикла:
TBitBtnWithColor(Components[i]).Color:=clGreen;
Её значение не определено.

---

Наверх