Для текстовых файлов есть две стандартные файловые переменные – Input и Output, которые не нужно объявлять отдельно.

17.2.1. Процедуры и функции для работы с текстовым файлом

1. Procedure AssignFile(f: TextFile; FileName: String);

Связывает файловую переменную f с дисковым файлом FileName.

2. Procedure Append(f: TextFile);

Открывает существующий файл для добавления строк в конец файла. При отсутствии файла возникает ошибка ввода/вывода.

3. Procedure Rewrite(f: TextFile);

Создает новый файл и открывает его для вывода. Если файл существует, то он уничтожается и создается как новый. Когда новый текстовой файл закрывается, к нему автоматически добавляется маркер конца файла.

4. Procedure Reset(f: TextFile);

Открывает существующий файл для чтения и устанавливает указатель на первую строку файла. При его отсутствии возникает ошибка ввода/вывода.

5. Procedure Read( f: TextFile[; v1, v2, …,vN]);

Читает данные из файла и заносит их в переменные v1, v2, …, vN. Переменные могут иметь символьный, строчный или арифметические типы.

6. Procedure Readln( f: TextFile[; v1, v2, …,vN]);

Читает данные из файла целыми строками и заносит их в переменные v1, v2, …, vN. Если список переменных пуст, то происходит перемещение указателя на следующую строку.

7. Procedure Write( f: TextFile[; v1, v2, …,vN]);

Записывает данные из переменных v1, v2, …, vN в файл в символьном виде.

8. Procedure SetTextBuf ( f: TextFile; Var Buf[; Size: Integer]);

Устанавливает буфер чтения текстового файла. Процедура должна быть вызвана после AssignFile, но до первого вызова процедур чтения. Буфер используется для чтения больших фрагментов файла, включая символы конца строк. Если размер буфера не указан, то по умолчанию он принимается равным 128.

9. Procedure CloseFile( f: TextFile);

Закрывает текстовой файл.

10. Procedure Flush( f: TextFile);

Выводит содержимое внутреннего буфера в файл.

11. Function Eof( f: TextFile): boolean;

Возвращает True, если достигнут конец файла.

12. Function Eoln( f: TextFile): boolean;

Возвращает True, если достигнут конец текущей строки.

13. Function SeekEof( f: TextFile): boolean;

Возвращает статус конца файла.

14. Function SeekEoln( f: TextFile): boolean;

Возвращает статус конца строки.

Пример:

Var F1, F2: TextFile; Ch: Char; St: String[255]; Buf: array[1 4096] of Char; { текстовой буфер размером 4K}

begin AssignFile(F1, 'T1.TXT'); SetTextBuf(F1, Buf); { большой буфер для ускорения чтения} Reset(F1); {F1 открыт для чтения} AssignFile(F2, 'WOOF.DOG'); Rewrite(F2); {F2 создан как новый для вывода }

while not Eof(F1) do {пока не достигнут конец файла – выполнять} begin Read(F1, Ch); {читает один символ из файла F1} Write(F2, Ch); {пишет один символ в файл F2} end;

CloseFile(F1); {файл F1 закрыт} CloseFile(F2); {файл F2 закрыт} Reset(F1); {F1 снова открыт для чтения} Rewrite(F2); {F2 снова создан для вывода }

while not Eof(F1) do {пока не достигнут конец файла – выполнять} beginReadln(F1, St); {читает строку из файла F1} Write(F2, St); {пишет строку в файл F2} end;

CloseFile(F1); {файл F1 закрыт} CloseFile(F2); {файл F2 закрыт} end;

Приведенный фрагмент модуля является демонстрационным и предназначен для копирования файла 'T1.TXT' в файл 'WOOF.DOG' . В первом цикле While – do копирование ведется посимвольно, во втором цикле – построчно.

Пример процедуры, записывающей в конец текстового файла строку символов:

Procedure AddStrToTextFile(nF, St:String); Var f: Text;

Begin AssignFile(f, nF);

If not FileExists(nF) then Rewrite(f) {не существует, создать и открыть} Else {иначе} Begin Reset(f); {существует, открыть } While not Eof(f) do Readln(f); {передвинуть указатель в конец файла} End;

Writeln(f, St); {записать строку } CloseFile(f); {закрыть файл} End;

К процедуре можно обратиться, например, так:

Var

S1: String[58]; S2: String[189]; … AddStrToTextFile('c:\Files\ring.txt', 'Строка символов'); AddStrToTextFile('ring.txt', S1); AddStrToTextFile('ring.txt', S2);

17.3. Файлы с типом

Файл состоит из любых однотипных компонент. Доступ к данным осуществляется через файловую переменную. В отличие от текстового файла в таком файле допустим прямой доступ к любой записи, причем в рамках открытого файла допустимо как записывать, так и читать записи.

Примеры объявления файловой переменной для файлов с типом:

Var F1: File of String[45]; F2: File of Real; F3: File of tRecord24;

После каждого чтения или вывода записи указатель автоматически устанавливается на следующую запись.

17.3.1. Процедуры и функции для работы с типизированным файлом

1. Procedure AssignFile( f: File of Type; FileName: String);

Связывает файловую переменную f с дисковым файлом FileName.

2. Procedure Rewrite( f: File of Type);

Создает новый файл и открывает его. Если файл существует, то он уничтожается и создается как новый.

3. Procedure Reset( f: File of Type);

Открывает существующий файл и устанавливает указатель на первую запись. При отсутствии файла возникает ошибка ввода/вывода.

4. Procedure Read( f: File of Type[; v1, v2, …,vN]);

Читает записи из файла и заносит их в переменные v1, v2, …, vN. Чтение начинается с той записи, на которую установлен указатель. Типы файла и переменных должны быть одинаковы.

5. Procedure Write( f: File of Type[; v1, v2, …,vN]);

Записывает данные из переменных v1, v2, …, vN в файл. Вывод данных начинается с той записи, на которую установлен указатель. Если указатель установлен на существующую запись, то при выводе она будет замещена новой записью. Если одновременно выводится несколько записей, то будет замещено такое же количество существующих записей. Типы файла и переменных должны быть одинаковы.

6. Procedure Seek( f: File of Type; N: LongInt);