План лекций по курсу ОП 2008/09 — весенний семестр

Файлы

Введение

Определение. Преимущества файлов.

Классификация файлов

по типу компонент (текстовые, двоичные (типизированные,бестиповые))

по способу доступа (последовательный, произвольный)

Понятие файловой переменной, файлового указателя Буферизация в файлах

Подпрограммы для работы с закрытыми файлами

procedure Rename(f, name);
procedure Erase(f);
function FileExists(name): boolean;
function DeleteFile(name): boolean;
function RemoveDir(name): boolean;
function GetCurrentDir: string;
function SetCurrentDir(name): boolean;
function CreateDir(name): boolean;
function ExtractFileName(name): string;
function ExtractFileExt(name): string;
function ExtractFilePath(name): string;

Ошибки ввода-вывода при работе с файлами

1. файл открыли, но забыли выполнить Assign
2. открыли, но файла нет на диске (или нет прав доступа на чтение)
3. попытка считывания за концом файла

Пример. Попытка считывания за концом файла.

Assign(f,'a.dat');

try
  Reset(f);
  try
    read(f,x);
  finally
    Close(f);
  end;
except
  writeln('Произошла ошибка ввода-вывода');
end;

Лекция 2 ( 18.02.09 )

===Подпрограммы для работы с типизированными файлами

Truncate
FileSize
FilePos
Seek

Варианты использования:

Seek(FileSize(f)) - переместить файловый указатель за конец файла (Eof(f)=True)
Seek(FilePos(f)-1) - вернуться на 1 позицию назад

Пример 1. Добавление 0 в конец файла

Пример 2. Возведение всех элементов файла в квадрат.

Пример 3. Использование в базах данных - перевод Иванова в 10 группу в виде наказания

Пример 4. Сортировка файла

for var i:=FileSize(f)-1 downto 1 do
for var j:=0 to i-1 do
begin
  Seek(f,j);
  read(f,x,y);
  if x>y then
  begin
    Seek(f,j);
    write(f,y,x);
  end;
end;