Основы языка Delphi


             

Обработка ошибки открытия



Листинг 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;



Содержание  Назад  Вперед