Функция FilePos(< имя файловой переменной >) возвращает номер элемента, на который «смотрит» файловый указатель.
Определение количества элементов в файле
Функция FileSize(< имя файловой переменной >) возвращает количество элементов в файле.
Удаление и переименование файлов
Erase(< имя файловой переменной >) процедура удаления файла.
Rename(< имя файловой переменной >,’< новое имя на диске >’) переименование файла.
Пример: В файле DAT1.DAT записаны целые числа. Вычислить сумму элементов файла и результат вместе с исходными данными записать в файл DAN2.DAT
Program WW;
Var f1,f2: file of integer;
s, n: integer;
Begin
Assign(f1,’DAT1.DAT’);
Reset(F1);
Assign(f2,’DAT2.DAT’);
Rewrite(f2);
s:=0;
While Not Eof(f1) do { проверка на конец файла}
Begin
read(f1,n); {чтение элемента из файла F1}
write(f2,n); { запись элемента в файл F2}
s:=s+n;
end;
write(f2,s); {запись суммы элементов в конец файла F2}
write(‘Результат находится в файле DAT2.DAT’);
Close(f1);
Close(f2);
End.