$I: автоматический контроль операций ввода-вывода.

[Викдон]

$I: автоматический контроль операций ввода-вывода.
Вот проблемка есть, после проверки переменной ioresult я не могу вывести на экран сообщение "Ошибка"! вот отрывок кода:

if (IOresult<>0) then {Функция IOResult содержит в себе код ошибки}
begin
writeln('Ошибка ввода');
readln;
halt;{Выход из программы}
end;

а в этом коде все работает(я проверяю существует ли текстовый файл):

{$I-}
reset(text_file); {Открываем существующий файл для чтения}
if ioresult<>0 then
begin
write('Oshibka!!! Net faila');
readln;
halt; {выход из программы}
end;

Почему так? подскажите?

[puporev]

А что, в первом случае вообще нет попытки открыть файл?

[Викдон]

в первом случае вводится переменная:
readln(k);

if (IOresult<>0) then
begin
writeln('Ошибка ввода');
readln;
halt;{Выход из программы}
end;

[puporev]

Если я не съехал, то функция IOresult используется только при вводе данных из файла. Ввод переменных по типу контролирутся компилятором, по сути(диапазоны, ненужные символы и пр.) программно.

[Викдон]

ну... я читал что ioresult возвращает код последней ошибки ввода/вывода.
При отключенном автоматическом контроле ввода-вывода, признак ошибки, возникшей при выполнении операции ввода-вывода, сохраняется во внутренней переменной, доступ к которой можно получить с помощью функции IOResult.

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

[Викдон]

ну может я и не прав.)

[puporev]

Вы посмотрите в Хелпе Паскаля, в книгах, там только с файлами. Когда-то давно видимо ввод был только из файла и выход в файл.
Код начинался примерно
Program WWW(input,output);
делась проверка ввода вывода. Сейчас эта строчка не нужна, а проверку ввода вывода с файлами делают. Я лично никогда это не пишу и все работает. Если файл забыл создать, компилятор напомнит.

[Викдон]

ну я проверял. функция ioresult возвращает любые ошибки ввода/вывода, просто в:
readln(k);

if (IOresult<>0) then
begin
writeln('Ошибка ввода');
readln;
halt;{Выход из программы}
end;

оператор writeln('Ошибка ввода'); выполняется, а вот задержа экрана(readln) нет.


Ну эту проверку делаю если спользовать exe-файл. так он просто вырубится, а если использовать ioresult он выведет сообщение об ошибке.

[Somebody]

Сообщение от Викдон

оператор writeln('Ошибка ввода'); выполняется, а вот задержа экрана(readln) нет.

Например, пользователь вводит 'abc'#$d#$a. Readln читает всё до перевода строки (предполагаемое число). Оказывается, что это не число, в InOutRes записывается код ошибки; #$d#$a остаются в буфере, и этот пустой остаток строки читает следующий readln. Таким образом, если нужна задержка, надо написать readln два раза.

[Викдон]

СПАСИБО!
а вот вопрос. мы вводим 'abc'#$d#$a. почему выдается ошибка только при прочтении 'abc'? а не просто буквы а?