[freya_pc]

Привет, ребята. Есть такая странная ошибка list index out of bounds, как исправить ее? Имеется программа, вкратце:

Код:

1	if checklistbox[i].checked or ... then Form2.Memo1.Lines.Add('1111');

и такиз условий много, порядка 20, но после определенного кол-во ифов, начинает выдавать вот эту ошибку. Может проблема в if, что их слишком много. пока так. код выкладывать не буду, уж очень он однообразный.
Спасибо, жду советов.

[Alegun]

Это выход из диапазона значений, т.е. идёт обращение к не существующему объекту списка. Решается заданием соответствующих условий циклу, напр.

Код:

1 2 3

... for i := 0 to obj.Count - 1 do ...

При прокрутке цикла он перерабатывает заложенный диапазон на еденицу, в результате такая ошибка и вылазит

[freya_pc]

ну, у меня циклом никак не получится, потому что не для каждого i нужно выполнять действие.

при чем ошибка вылетает не всегда, а после некторого if-then.

[Alegun]

Сообщение от freya_pc

ну, у меня циклом никак не получится, потому что не для каждого i нужно выполнять действие.

при чем ошибка вылетает не всегда, а после некторого if-then.

Ну вы как раз итерацию цикла и показали отсюда выводы. А дошло, тогда уж вместо i явно указывайте к какому участнику списка обращаетесь

[freya_pc]

ок. указываю. проблема-то и в том, что, короче, вот:

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70

begin    if CheckListBox1.checked[2] or CheckListBox1.checked[3]     or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]     or CheckListBox3.checked[1] or CheckListBox3.checked[2]     or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]    then Form2.Memo1.Lines.Add('Генераторы шумовых сигналов');     if CheckListBox1.checked[2] or CheckListBox1.checked[3]     or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]     or CheckListBox3.checked[1] or CheckListBox3.checked[2]     or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]    then Form2.Memo1.Lines.Add('Низкочастотные генераторы сигналов');    if CheckListBox1.checked[2] or CheckListBox1.checked[3]     or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]     or CheckListBox3.checked[1] or CheckListBox3.checked[2]     or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]    then Form2.Memo1.Lines.Add('Усилители мощности');    if CheckListBox1.checked[2] or CheckListBox1.checked[3]     or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]     or CheckListBox3.checked[1] or CheckListBox3.checked[2]     or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]    then Form2.Memo1.Lines.Add('Акустические излучатели');    if CheckListBox1.checked[2] or CheckListBox1.checked[3]     or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]     or CheckListBox3.checked[1] or CheckListBox3.checked[2]     or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]    then Form2.Memo1.Lines.Add('Измерители шума и вибраций (шумомеры)');    if CheckListBox1.checked[0]     or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]     or CheckListBox3.checked[1] or CheckListBox3.checked[2] or CheckListBox3.checked[0]     or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]    then Form2.Memo1.Lines.Add('Селективные микровольтметры, измерительные приемники (анализаторы спектра)');    if CheckListBox1.checked[0] or CheckListBox1.checked[1] or CheckListBox1.checked[2] or CheckListBox1.checked[3]     or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]     or CheckListBox3.checked[1] or CheckListBox3.checked[3]     or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]    then Form2.Memo1.Lines.Add('Селективные нановольтметры');    if CheckListBox1.checked[2] or CheckListBox1.checked[2]     or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]     or CheckListBox3.checked[1] or CheckListBox3.checked[2]     or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]    then Form2.Memo1.Lines.Add('Измерительные микрофоны');    if CheckListBox1.checked[0] or CheckListBox1.checked[1]     or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]     or CheckListBox3.checked[0]     or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]    then Form2.Memo1.Lines.Add('Измерительные антенны');    if CheckListBox1.checked[2] or CheckListBox1.checked[3]     or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]     or CheckListBox3.checked[1] or CheckListBox3.checked[2]    then Form2.Memo1.Lines.Add('Вибродатчики (акселерометры)');    if CheckListBox1.checked[0] or CheckListBox1.checked[1]     or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]     or CheckListBox3.checked[0]     or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]    then Form2.Memo1.Lines.Add('Измерительные пробники');    if CheckListBox1.checked[2] or CheckListBox1.checked[3]     or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]     or CheckListBox3.checked[1] or CheckListBox3.checked[2]     or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]    then Form2.Memo1.Lines.Add('Полосовые октавные фильтры со среднегеометри- ческими частотами 250, 500, 1000, 2000, 4000 Гц');    if CheckListBox1.checked[0] or CheckListBox1.checked[1]     or CheckListBox3.checked[0]     or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]    then Form2.Memo1.Lines.Add('Осциллографы');  { if Checklistbox6.Checked[0] or CheckListBox3.checked[0]     or CheckListBox4.checked[0]   then Form2.Memo1.Lines.Add('Программные средства формирования и контроля полномочий доступа в AC'); }  <font color="Red"> if CheckListBox2.checked[3] or CheckListBox2.checked[4]or CheckListBox2.checked[5]     or CheckListBox3.checked[0] or CheckListBox4.checked[0]    then Form2.Memo1.Lines.Add('Программные средства контроля целостности программ и программных комплексов');</font>

вот до выделенного места все работает, а потом при добавлении еще одного условия, не хочет.

Извините, за громоздкий код. для наглядности

[freya_pc]

может есть ограничение, типа не больше 10 if на одну битбатон?))

[Alegun]

Сейчас попробую оптимизировать

[freya_pc]

Я знаю, что есть повторы, но, поверьте, того требует законодательство в сфере лицензирования, изменить ничего не могу. надо запрограммировать так, как изложено. но не может же быть в этом проблемы.

[freya_pc]

хотя, наверное, позже исправлю. но надо разобраться с этой ошибкой. откуда она...

[poli-smen]

Сообщение от freya_pc

может есть ограничение, типа не больше 10 if на одну битбатон?))

Никаких ограничений на количество if не накладывается.
Сколько элементов содержит каждый из CheckListBox-ов?

p.s. Исходя из исходника CheckListBox2 должен содержат не менее 6 элементов - иначе будет такая ошибка.

[freya_pc]

конечно, чеклистбоксы содержат все то, что есть в коде. проблема в том, что когда выбираем только чеклистбокс 6, то только тогда и выходит эта преславутая ошибка.странно.

[Тролль]

freya_pc, будьте пожалуйста внимательнее! Я уже запостил решение:
http://www.delphisources.ru/forum/sh...ad.php?t=26139

Нет, Вы все равно упорно проверяете в цикле на checked!..

[freya_pc]

да, все не так уж и просто.

[Тролль]

Если что-то не понятно, пишите в личку, попытаюсь объяснить(я имею в виду свой код). В вашем не разобрался.

Цитата:

Код:

1 2 3 4 5

begin    if CheckListBox1.checked[2] or CheckListBox1.checked[3]     or CheckListBox2.checked[0] or CheckListBox2.checked[1] or CheckListBox2.checked[2]     or CheckListBox3.checked[1] or CheckListBox3.checked[2]     or CheckListBox5.checked[0] or CheckListBox5.checked[1] or CheckListBox5.checked[2]

Один сплошной "анакондовый" OR; хотя так и тянет поставить AND.
Обычно каждое условие оборачивают в скобки:

Код:

1	(CheckListBox2.checked[0]) or (CheckListBox2.checked[1]) or (CheckListBox2.checked[2])

хз, что должна делать эта прога.

[Alegun]

Всё, впал в ступор, поскольку оптимизация дошла до совпадающих условий

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80

if (CheckListBox5.checked[0]) or (CheckListBox5.checked[1]) or (CheckListBox5.checked[2]) or     (CheckListBox2.checked[0]) or (CheckListBox2.checked[1]) or (CheckListBox2.checked[2]) then   begin    if CheckListBox1.checked[0] then     begin      if {1 1} CheckListBox1.checked[1] or {3 0} CheckListBox3.checked[0] then Form2.Memo1.Lines.Add('Осциллографы');        if {1 1} CheckListBox1.checked[1] or {1 2} CheckListBox1.checked[2] or {1 3} CheckListBox1.checked[3] or {3 1} CheckListBox3.checked[1] or {3 3} CheckListBox3.checked[3] then Form2.Memo1.Lines.Add('Селективные нановольтметры');        if {1 1} CheckListBox1.checked[1] or {3 0} CheckListBox3.checked[0] then Form2.Memo1.Lines.Add('Измерительные антенны');        if {1 1} CheckListBox1.checked[1] or {3 0} CheckListBox3.checked[0] then Form2.Memo1.Lines.Add('Измерительные пробники');        if {3 0} CheckListBox3.checked[0] or {3 1} CheckListBox3.checked[1] or {3 2} CheckListBox3.checked[2] then Form2.Memo1.Lines.Add('Селективные микровольтметры, измерительные приемники (анализаторы спектра)');     end;    if (CheckListBox3.checked[1]) or (CheckListBox3.checked[2]) then   begin    if {1 2} CheckListBox1.checked[2] or {1 3} CheckListBox1.checked[3] then Form2.Memo1.Lines.Add('Генераторы шумовых сигналов');      if {1 2} CheckListBox1.checked[2] or {1 3} CheckListBox1.checked[3] then Form2.Memo1.Lines.Add('Низкочастотные генераторы сигналов');      if {1 2} CheckListBox1.checked[2] or {1 3} CheckListBox1.checked[3] then Form2.Memo1.Lines.Add('Усилители мощности');      if {1 2} CheckListBox1.checked[2] or {1 3} CheckListBox1.checked[3] then Form2.Memo1.Lines.Add('Акустические излучатели');      if {1 2} CheckListBox1.checked[2] then Form2.Memo1.Lines.Add('Измерительные микрофоны');      if {1 2} CheckListBox1.checked[2] or {1 3} CheckListBox1.checked[3] then Form2.Memo1.Lines.Add('Измерители шума и вибраций (шумомеры)');      if {1 2} CheckListBox1.checked[2] or {1 3} CheckListBox1.checked[3] then Form2.Memo1.Lines.Add('Полосовые октавные фильтры со среднегеометри- ческими частотами 250, 500, 1000, 2000, 4000 Гц');   end;  end;    if {1 2} CheckListBox1.checked[2] or {1 3} CheckListBox1.checked[3] or {2 0} CheckListBox2.checked[0] or {2 1} CheckListBox2.checked[1] or {2 2} CheckListBox2.checked[2] or {3 1} CheckListBox3.checked[1] or {3 2} CheckListBox3.checked[2] then Form2.Memo1.Lines.Add('Вибродатчики (акселерометры)');    if Checklistbox6.Checked[0] or     CheckListBox3.checked[0] or     CheckListBox4.checked[0] then Form2.Memo1.Lines.Add('Программные средства формирования и контроля полномочий доступа в AC');    if CheckListBox2.checked[3] or     CheckListBox2.checked[4] or     CheckListBox2.checked[5] or     CheckListBox3.checked[0] or     CheckListBox4.checked[0] then Form2.Memo1.Lines.Add('Программные средства контроля целостности программ и программных комплексов'); end;

смотрите сами