Reset(f);

{$I+}

If IOResult<>0 Then

Begin

WriteLn('Файл не найден'); halt;

End;

While Not EOF(f) Do

Begin

Read(f, Buf);

{Операции с переменной Buf}

..

End;

…

Вприведенном выше участке кода DataType – это любой тип данных, который одинаков

упеременной Buf и у типа данных файловой переменной.

Запись в файл

Инициализация файловой переменной при записи в файл осуществляется при помощи процедуры Rewrite. Работает она следующим образом:

—если файл с заданным именем существует, то он удаляется и вместо него создается новый пустой файл;

—если файла с заданным именем не существует, то он создается.

Таким образом, после выполнения процедуры rewrite мы будем иметь дело с пустым файлом, готовым для записи (исключения составляют случаи, когда у нас нет прав доступа к файлу или нет разрешений на запись файла). Синтаксис процедуры следующий:

Rewrite(файловая переменная);

Непосредственной запись осуществляется при помощи процедуры Write, синтаксис которой, также расширен. Первый ее аргумент – это файловая переменная, ассоциированная с файлом, в который планируется записывать, а все последующие – это переменные, значения которых необходимо записать в файл:

Write(файловая переменная, Переменная1, переменная2,…);

В случае записи в типизированный файл, тип данных записываемой переменной должен совпадать с типом данных, указанным при объявлении файловой переменной.

Пример 1.

Приведем пример записи в файл матрицы, сгенерированной случайным образом.

Const ROWS=10;

COLS=10;

Type TRow=array[1..COLS] of Integer; TMatrix=array[1..ROWS] of TRow;

Var f: file of TMatrix;

M:TMatrix;

Begin

Assign(f, 'c:\table.dat'); Rewrite(f);

90