Процесс компиляции,отключение проверки ошибок, Процедура вызывает процедуру. Опции

[klem4]

Возникла проблемма.

В программе несколько процедур, все немного запутано, одна процедура в последстыии должна вызвать другую, а та какую нибудть еще и обратно, и еще как нибудь

Но компилятор ругается, если в процедуре B происходит вызов процедуры A
, которая описана выше. Вроде можно отключить процесс проверки ошибок на этапе компиляции, но в этом случае программа будет правильно работать ?

Можно ли как-то установить последовательность компиляции процедур ?


Спасибо.

[volvo]

Ну не знаю, как насчет ошибок, а вот условие (в процедуре Search):

Код

while (not(eof(file_s)))and(not(SearchPoint)) do

можно было бы переписать, как:

Код

while not(eof(file_s) or SearchPoint) do

;)

Но это не главное. Ошибка тоже присутствует (основная программа):

Код

assign(file_s,'Data.dat');
reset(file_s);
if not(IOResult<>0) then...

Этот фрагмент закончится аварийно при самом первом запуске (когда еще нет файла "Data.dat"). Исправляем - заключаем Reset в пару соответствующих директив компилятора (заодно исправил и условие, почему тебе так нравится NOT - не понимаю...):

Код

assign(file_s,'Data.dat');
{$I-} reset(file_s); {$I+}
if IOResult = 0 then ...

Вот теперь при отсутствии файла программа не "вылетит", и ты сможешь обработать результат ввода/вывода (IOResult)...

Еще замечу - допишу...

Сообщение отредактировано: volvo - 30.01.2005 17:09