Ввод из файла
Программа может вводить исходные данные не только с клавиатуры, но ииз текстового файла. Для того чтобы воспользоваться этой возможностью,нужно объявить файловую переменную типа TextFiie, назначить ей припомощи инструкции AssignFile имя файла, из которого будут считываться данные, открыть файл для чтения (ввода) и прочитать (ввести) данные, используя инструкцию read ИЛИ reaciln.
Открытие файла
Открытие файла для ввода (чтения) выполняется вызовом процедуры Reset, имеющей один параметр — файловую переменную. Перед вызовом процедуры Reset с помощью функции AssignFile файловая переменная должна быть связана с конкретным файлом.
Например, следующие инструкции открывают файл для ввода:
AssignFile(f, 'с:\data.txt1);
Reset(f);
Если имя файла указано неверно, например файла с указанным именем на диске нет, то возникает ошибка времени выполнения программы. Следует отметить, что другой причиной возникновения ошибки при открытии файла, находящегося на гибком диске, может быть отсутствие готовности дисковода, проше говоря, отсутствие диска в накопителе. Поэтому в программе следует предусмотреть возможность повторной попытки открытия файла после подтверждения повторения операции.
Как и при открытии файла для записи, программа может взять на себя задачу обработки возможной ошибки при открытии файла, проверяя значение функции lOResult.
Фрагмент программы, текст которого приведен в листинге 7.4, использует значение функции lOResuit для проверки результата открытия файла. Если попытка открыть файл вызывает ошибку, то программа выводит диалоговое окно с сообщением об ошибке и запросом на подтверждение повторного открытии файла.
Листинг 7.4. Обработка ошибки открытия файла (фрагмент программы)
01.var04.fnarne : string [80]; // имя файла05.f : TextFile; // файл06.res : integer; // кол ошибки открытия файла ['значение ZOResalt)07.arisw : word; // огает пользователя08.begin09.fname := 'a:\test.txt';10.AssignFile[f,fname);11.repeat12.{$!-)13.Reset(f); // открыть файл для чтения14.[$1+115.res:=IORes!ilt;16.if res о О17. 18.then answ:=MessageDlg ('Ошибка открытия '+ fname+#1319.+'ПовтОрить попытку?'.mtWarning,20.[mbYes, mbNo],0);21.until (resc 0) OR (answ = mrNo);22.i? res о О23.then exit; // завершение процедуры24.//' здесь инструкции, которые выполняются25.// в случае успешного открытия файла26.end;