Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.06.06;
Скачать: CL | DM;

Вниз

Ошибка   Найти похожие ветки 

 
jenbbond   (2002-05-25 10:12) [0]

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)".

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


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

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


 
Внук ©   (2002-05-25 11:02) [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;



 
Anatoly Podgoretsky ©   (2002-05-25 11:18) [3]

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



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

Текущий архив: 2002.06.06;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.02 c
1-17913
andy_dn
2002-05-23 16:54
2002.06.06
Утечки памяти!


14-18121
mimino
2002-04-29 14:13
2002.06.06
как добавить есче одну клавишу key=vk_left


3-17835
uncle_m16
2002-05-16 20:23
2002.06.06
Раздуплите как в базе создать генератор


3-17783
veronika
2002-05-14 16:09
2002.06.06
adoTable1.updatebatch


1-17857
allrussia
2002-05-24 05:05
2002.06.06
Сначала рисую на TPanel, затем App.Minimize, then restore - рисун