Прямий доступ у системі Турбо Паскаль, Детальна інформація

writeln('Задайте ім''я файла'); readln(FileName);

assign(Fi, FileName); reset(Fi);

assign(Fo, 'NewFile.dat'); rewrite(Fo);

end;

procedure ClearFile; { Процедура стискання файла }

var St : Student; { Змінна для обміну }

StudtoOut : string[20];

begin

writeln('Задайте прізвище студента, що вилучається:');

readln(StudtoOut);

while not eof(Fi) do

begin

read(Fi, St);

if St.SName <> StudtoOut then

write(Fo, St)

end;

close(Fi);

close(Fo);

{Виклики процедур модуля System }

Erase(Fi); {для знищення}

ReName(Fo, FileName); {та переіменування файла }

end;

begin

OpenFile;

ClearFile;

end.

Крім операцій заміни та вилучення елементів файла, опишемо операцію вставки елемента в довільне місце файла. Нехай місце задається номером нового елемента в файлі. Для вставки використовують один із двох алгоритмів.

У першому алгоритмі використовується допоміжний файл, в який переписуються всі елементи, що передують заданому.

Відкрити основний та допоміжний файли.

У циклі переписати з основного файла в допоміжний всі елементи, номери яких менші заданого. Для цього можна використати допоміжну змінну того ж типу, що і в елементів файла.