Основы программирования. Файлы. Рекурсия - 9 стр.

UptoLike

ВУЗ: 

ЮФУ | Ростов-на-Дону

Составители: 

Рубрика: 

11
except
Result:=False;
end;
end;
2.5 Типизированные файлы
Напомним, что для описания типизированного файла используется конст-
рукция
file of тип. При этом в качестве типа компонентов файла не может фи-
гурировать файловый тип или тип длинных строк AnsiString (по умолчанию в
Delphi string=AnsiString, поэтому конструкция file of string вызовет
ошибку компиляции).
При работе с типизированными файлами кроме основных процедур и функ-
ций можно использовать следующие:
Truncate(f) – процедура, усекающая типизированный
файл в позиции
файлового указателя. Все элементы, начиная с текущего (то есть с элемента, на
котором расположен файловый указатель), удаляются. Файл должен быть открыт.
FileSize(f) – функция, возвращающая количество элементов в типизиро-
ванном файле.
FilePos(f) – функция, возвращающая позицию файлового указателя.
Элементы нумеруются от нуля, так что номер последнего элемента равен
FileSize(f)-1.
Seek(f,i)– процедура, перемещающая файловый указатель на элемент с но-
мером i.
Рассмотрим несколько примеров, иллюстрирующих основные действия с ти-
пизированными файлами.
Пример 1. Добавить число 0 в конец файла целых чисел a.dat (если файл не
существует, то создать его).
Решение.
uses SysUtils;
const name='a.dat';
var f: file of integer;
x: integer;
begin
Assign(f,name);
if not FileExists(name) then
Rewrite(f)
else Reset(f);
Seek(f,FileSize(f));
x:=0;
write(f,x);

Страницы