1.4 Закрытие файла

Перед завершением работы программа должна закрыть все открытые файлы. Это делается вызовом процедуры close. Процедура close имеет один параметр — имя файловой переменной. Пример использования процедуры:

CloseFile (f).

1.5 Ввод из файла

Pascal позволяет вводить исходные данные для программы не только с клавиатуры, но и из текстового файла. Чтобы воспользоваться этой возможностью, нужно объявить файловую переменную типа TextFile, назначить ей при помощи инструкции AssignFile имя файла, из которого будут считываться данные, открыть файл для чтения (ввода) и прочитать (ввести) данные, используя инструкцию read или readln.

1.5.1 Открытие файла

Открытие файла для ввода (чтения) выполняется вызовом процедуры Reset, имеющий один параметр — файловую переменную. Перед вызовом про­цедуры Reset, с помощью функции AssignFile файловая переменная долж­на быть связана с конкретным файлом.

Например, следующие инструкции открывают файл для ввода.

AssignFile (f, ‘c:\data.txt’);

Reset (f);

1.5.2 Чтение данных из файла

Чтение из файла выполняется при помощи инструкций read и readln, которые в общем виде записываются так:

read (Файловая Переменлая, Список Переменных)

readln (Файловая Переменная, Список Переменных),

где

Файловая Переменная — переменная типа TextFile;

Список Переменных - имена переменных, разделенные запятыми.

var

f:textfile; i:integer; a:string;

begin

assignfile(f,'f:\1.txt');

{$I-}

reset(f);

{$I+}

if IOResult<>0 then rewrite(f);

else begin

repeat

readln(f,a);

Memo1.Lines.Add(a);

until eof(f);

end;

closefile(f);

end;

1.6 Определение конца файла

Для определения конца файла можно воспользоваться функцией EOF (End Of File — конец файла). У функции EOF один параметр — файловая переменная. Значение функции EOF равно FALSE, если прочитанный элемент данных не является последним в файле, т.е. возможно дальнейшее чтение из файла. Если прочитанный элемент данных является последним, то значение EOF равно TRUE.

Значение EOF можно проверить сразу после открытия файла. Если при значение EOF равно TRUE, то это свидетельствует о том, что файл не со жит ни одного элемента данных и является пустым (размер такого файла равен нулю).

2