Писать за границу файла можно, в этом случае размер файла увеличивается. Читать за границей файла нельзя.

 

Описание файлового типа

Var <имя файла>: file of <базовый тип>;;

Var F: file of integer;

Базовым типом должен быть тип, размер которого известен.

 

Работа с типизированным файлом

1. Запись в файловую переменную

Procedure AssignFile(var F:file; FileName:string);

Первый аргумент – файловая переменная, второй – имя файла в соответствии с правилами записи в ОС. Процедура заносит нужное имя файла в файловую переменную.

 

AssignFile(F, ‘a.dat’); Файловая переменная F связывается с файлом a.dat.

2. Открытие файла

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

Открытие файла на чтение:

Procedure Reset(var F:file);

Открытие файла на запись:

Procedure Rewrite(var F:file);

 

3. Чтение из файла

Procedure Read(F:file; var V:<базовый тип>);

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

 

4. Запись в типизированный файл

Procedure Write(F:file; var V:<базовый тип>);

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

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

 

5. Закрытие файла

Procedure CloseFile(var F:file);

6. Определение того, находится ли указатель за границей файла

Function EoF (var F): Boolean;

Выдает истинное значение, если указатель находится за границей файла.

If EoF (F) then ShowMessage(‘End of file’);

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

Function FileSize(var F): integer;

Определяет количество ячеек в файле F (не количество байтов!)

8. Определение номера текущей ячейки

Function FilePos(var F): integer;

Выдает номер текущей ячейки в файле (нумерация в файле начинается с нуля).

9. Установка позиции указателя

Procedure Seek(var F; N:integer);

Ставит указатель на ячейку файла F с номером N.

 

Примеры

Установить указатель на первую ячейку файла:

Seek(F,0);

Установить указатель на последнюю ячейку файла:

Seek(F,FileSize(F)-1);

Установить указатель за границу файла:

Seek(F, FileSize(F));

Сдвинуть указатель на одну ячейку назад:

FileSize(F, FilePos(f)-1);

 

10. Переименование файла

Function RenameFile(OldName, NewName:string): boolean;

Изменяет имя файла, но для этого файл должен быть закрыт и файла с именем NewName существовать не должно. Выдает истинное значение, если файл был успешно переименован.

11. Удаление файла

Function DeleteFile(FileName:string): boolean;

Удаляет файл, но для этого файл должен быть закрыт. Выдает истинное значение, если файл был успешно удален.

Задачи

Дан файл чисел. Прочитать его содержимое и вывести на экран.

 

procedure TForm1.Button1Click(Sender: TObject);

var f:file of integer;

i,k,t:integer;

 

begin

randomize;

AssignFile(F,'c:a.dat');

Rewrite(F);

for I:= 1 to 10 do

begin

t:=random (20); write (F,t);

end;

 

Reset(F);

for I:= 1 to FileSize(F) do

Begin

read (F,k);

Label1.Caption:=Label1.Caption+' ' +IntToStr(k);

End;

CloseFile(F);

end;

 

Дан файл чисел. Найти сумму чисел, находящихся в данном файле.

procedure TForm1.Button1Click(Sender: TObject);

var f:file of integer;

i,k,t,s:integer;

begin

randomize;

AssignFile(F,'c:a.dat');

Rewrite(F);

for I:= 1 to 10 do

begin

t:=random (20); write (F,t);

Label1.Caption:=Label1.Caption+' ' +IntToStr(t);

end;

s:=0;

Reset(F);

While not EoF(F) do

Begin

read (F,k);

s:=s+k;

End;

Label2.Caption:=IntToStr(s);

CloseFile(F);

end;

 

Дан файл чисел. Записать его числа в другой файл в обратном порядке.

procedure TForm1.Button1Click(Sender: TObject);

var f1,f2:file of integer;

i,k,t,s:integer;

begin

randomize;

AssignFile(F1,'c:a.dat');

Rewrite(F1);

for I:= 1 to 10 do

begin

t:=random (20); write (F1,t);

Label1.Caption:=Label1.Caption+' ' +IntToStr(t);

end;

 

AssignFile(F2,'c:b.dat');

Rewrite(F2);

for I:= FileSize (f1)-1 downto 0 do

Begin

seek(f1,i);

read(F1,k);

write(f2,k);

Label2.Caption:=Label2.Caption+' ' +IntToStr(k);

End;

 

CloseFile(F1);

CloseFile(F2);

end;