Реферат: Файлы

Распознавание конца файла осуществляется с помощью функции:

Пример :

Var F: file of integer;

S , I : integer ;

...

{Чтение из непустого файла всех его компонент и

вычисление суммы их квадратов}

Reset ( F ); S :=0;

While not Eof(F) do

begin

Read(F,I); S:=S+Sqr(I)

end ;

7 Определение имени файла

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

Assign ( F , Name );

где F - имя файла, определенное в программе;

Name - переменная типа String или строка символов, указывающая путь к файлу на физическом носителе информации.

Пример :

Var F1,F2:file of real;

Name:string;

...

Assign (F1, ‘A:\Myfile.Dat’); { исходный файл находится на диске A

под именем Myfile . Dat }

Name:=’B:\File2.Dat’;

Assign ( F 2, Name ); {исходный файл находится на диске B под

именем File 2. Dat }

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

Close ( F );

Процедура закрывает открытый (с помощью процедур Rewrite или Reset )файл.