Обработка ошибки открытия
Листинг 7.4. Обработка ошибки открытия файла (фрагмент программы)
var
fname : string[80]; // имя файла
f : TextFile; // файл
res : integer; // код ошибки открытия файла (значение lOResult)
answ : word; // ответ пользователя
begin
fname := 'a:\test.txt'; AssignFile (f, fname);
repeat
<$I-}
Reset(f);
// открыть файл для чтения
{$!+}
res:=IOResult;
if res <>
0
then answ:=MessageDlg('Ошибка открытия '
+ fname+#13 +'Повторить попытку?',mtWarning,
[mbYes, mbNo],0);
until (res= 0) OR (answ = mrNo);
if res <>
0
then exit; // завершение процедуры
// здесь инструкции, которые выполняются
// в случае успешного открытия файла
end;
