Почему не работает цикл?

Question

[Евгений Иванов]

Delphi 7.
В результате написания программы, я понял что код можно сильно упростить.
Но цикл не работает и вызывает ошибку. Сначала Invalid pointer operation (закрываю окно ошибки) Runtime error 217 at 00402764.
Место ошибки при использовании цикла - процедура создания массива CASE_OF_TREATMENT_SETTINGS_TABLE
А без цикла - нет ошибок.

//процедура создания массива CASE_OF_TREATMENT_SETTINGS_TABLE выше. 
//её код тут пока не пишу, дабы не грузить лишним

for i:=1 to 20 do //Перебор по строкам
begin
for j:=1 to excel_columns_1 do //Перебор по столбцам
begin

//Тут 120 таких строчек. Это глупо. Можно и нужно заменить циклом.
Но это работает.
{
//Столбец 1
if ((current_string=CASE_OF_TREATMENT_SETTINGS_TABLE[1,1]) and (DRMP_TABLE_list_1_column_number[1]=0)) then 
DRMP_TABLE_list_1_column_number[1]:=j;
//Столбец 2
if ((current_string=CASE_OF_TREATMENT_SETTINGS_TABLE[2,1]) and (DRMP_TABLE_list_1_column_number[2]=0)) then DRMP_TABLE_list_1_column_number[2]:=j;
//Столбец 3
if ((current_string=CASE_OF_TREATMENT_SETTINGS_TABLE[3,1]) and (DRMP_TABLE_list_1_column_number[3]=0)) then DRMP_TABLE_list_1_column_number[3]:=j;
...
//Столбец 120
if ((current_string=CASE_OF_TREATMENT_SETTINGS_TABLE[120,1]) and (DRMP_TABLE_list_1_column_number[120]=0)) then DRMP_TABLE_list_1_column_number[120]:=j;
}

//А вот чем я хочу заменить эти 120 строк. Но это вызывает ошибку. Непонятно почему (
for k:=1 to 120 do
begin
if ((current_string=CASE_OF_TREATMENT_SETTINGS_TABLE[k,1]) and (DRMP_TABLE_list_1_column_number[k]=0)) then DRMP_TABLE_list_1_column_number[k]:=j;
end;

end;
end;

Можно было сказать, что проблема с массивами, размерностью и т.д. но код выше - 120 строк, они работают.
Все что я сделал - создал ещё 1 цикл. И он вызывает ошибку.
Переменная k нигде не используется.

Я не понимаю, почему простая строка работает, а цикл нет.
И почему он вызывает ошибку в процедуре создания массива. Если бы там была ошибка (размерность массива, данные и т.д.), то строка тоже бы не работала. Код идентичный.
А строка работает. И все 120 строк. А как оформишь всё это это циклом - нет.

В чем проблема? Есть идеи, догадки, советы?

Answer 1

[kalapanga]

Привели бы Вы лучше весь реальный код, который не работает, по этим кусочкам можно только гадать, как на кофейной гуще. А то более чем странно получается, говорить об ошибке при работе с массивом и не привести объявление массива. Тем более, что Вы сами пишете, что ошибка там. Выделите такой минимальный кусок кода, работа которого приводит к ошибке, но который можно скопировать себе, скомпилировать, запустить и посмотреть на ошибки. А может и без этого всё понятно будет.

Comments

[Евгений Иванов]

"Привели бы Вы лучше весь реальный код, который не работает"
Ок. Кода много
https://cloud.mail.ru/public/4P8y/PGw6f6VPP

Я выделил участки кода, который используется комментарием
//!!!!!!!!!!!!!!
Чтобы удобно было искать.
Но из всего этого нужно только:
Строка 154 (до строки 257)- procedure read_settings_file; Она создает массивы и заполняет их.
Строка 278 с вызовом этой процедуры. На неё компилятор ругается и показывает сообщение об ошибке.
Строка 366 - там где я пишу цикл, но он вызывает ошибку. И там где пока набиты строки - которые работают.

-----
Что я хочу сказать. Я принципиально не понимаю, почему не работает конструкция с циклом.
//любой код

//рабочий код
a:=array[1];
b:=array[2];

//а это ошибка
for k:=1 to 2 do
begin
с:=array[k];
end;

Если массивы созданы, инициализированы, очищены....что угодно..., то почему простое обращение по номеру элемента массива работает, а "подстановка номера циклом" вызывает ошибку?

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

Т.е. пишем один код ниже - процедура работает. Пишем второй код ниже - процедура выше перестала работать. Там ошибка? Но как тогда раньше работало?
Я просто обратился к элементу массива из цикла. Пусть я ошибся при обращении - так должно указать на строку - цикл. По типу - в вашем цикле ошибка...
Нет говорит в процедуре? Чудеса.

[kalapanga]

logpol32: Ух, я думал у Вас получится одну процедурку с ошибкой вырезать. Но пускай так. Не так уж там всего и много. Но я хотел бы не просто на код, а на ошибку посмотреть. Т.е. если можно файлики ещё дайте, которые там читаться должны, xml-ка, и экселевый. Тогда всё отладим. А так тяжко в уме-то это всё прокручивать - не вылез ли какой индекс за границу или ещё чего...

[Евгений Иванов]

"Ух, я думал у Вас получится одну процедурку с ошибкой вырезать."
Я предупреждал.

Проведя ещё пару тестов, я перестал понимать вообще что там происходит.
Хотя всё это писал я. Почему код снизу вызывает ошибку сверху?
Все нужные места помечены //!!! То есть это надо смотреть, комментировать или раскомментировать.

Итак
Ошибка не возникает если использовать 120 строк заместо цикла.
Ошибка возникает если использовать цикл, заместо 120 строк. Скорее всего в процедуре read_settings_file.

Ошибка не возникает если использовать цикл и прервать программу на этапе создания xml файла.
Т.е. раскомментировать строки ниже
(//ТАК КАК ПРОГРАММА ТЕСТОВАЯ И ДЛЯ ОТЛАДКИ - СРАЗУ ЗАВЕРШАЕМ ПРОГРАММУ.)
и при 120 записях или цикле всё будет работать. И это очень странно.
И вот почему.

До создания xml файла идет заполнение массива. Это 2-4 минуты.
Если прервать программу после создания массивов (goto End_of_the_programm)- ошибки не будет. Вообще. Т.е. в коде создания массивов ошибок нет.

Но если сделать цикл выше и не прерывать программу - ошибка появится мгновенно.
Но как? Программе ещё выполняться 2-4 минуты... Она ещё не знает - прервут её ниже или нет.
Ставим прерывание ниже - работает 2-4 минуты и завершается нормально.
Убираем прерывание ниже - мгновенно ошибка выше...

Получается, что цикл выше "знает" прервут ли программу ниже или нет???

Вообщем весь проект.
https://cloud.mail.ru/public/DcHJ/ouMmeqdkC

[kalapanga]

logpol32: Ну ошибку я по большому счёту даже угадал. Здесь просто больше и быть нечему. Сорри, но я просто забыл, что эта опция компилятора по умолчанию отключена, что и помешало Вам увидеть точную строку ошибки. Надо было про это раньше вспомнить. Включите в свойствах проекта в опциях компилятора Range checking = true. У меня не 7 дельфи, точно по пунктам меню не скажу, но оно там точно есть. Перекомпилируйте проект и отладчик при ошибке Вам покажет точную строку:
SERVICE_SETTINGS_TABLE[SERVICE_SETTINGS_TABLE_records_count, 1] := Text;
Ошибка где-то в алгоритме установки размера SERVICE_SETTINGS_TABLE, и не забудьте, что элементы с 0 считаются.
Разберитесь для начала с этим.

[Евгений Иванов]

"что эта опция компилятора по умолчанию отключена, что и помешало Вам увидеть точную строку ошибки" - да отключена. Включил, увидел, понял...
Компилятор делфи просто.../слов нет/

Да, вы правы. Я нашел 2 ошибки.
1 Я изначально установил неверные размеры массивов.
2 Я их изменял не там, где это нужно.
Исправил. Цикл заработал, но нужны тесты. Ещё потестирую...

Спасибо.

[kalapanga]

logpol32: Считается, что на эту опцию расходуется много ресурсов. Поэтому готовые программы с ней обычно не компилируют. В основном такие ошибки должны выявляться при разработке и тестировании, что собственно у Вас и происходит. Но главное, на это время не забыть её включить, чтобы не гадать, что же такое с программой происходит.