В Delphi нет готовой процедуры для удаления записей из файла. Поэтому приходится придумывать способы сделать это. Я обычно использую следующий метод. Чтобы удалить запись из файла, нужно открыть еще один файл и скопировать в него по порядку все записи из первого файла, за исключением удаляемой. Затем файлы закрывают, и второй файл переименовывают, чтобы его имя стало как у первого. В следующем примере из файла out. dat удаляется пятая запись.

Листинг 8.20
procedure TForml.Button2CI ick(Sender: TObject);
var
F1: Fi le of Integer; // файл, из которого удаляется запись
р: Integer;
F2: Fi le of Integer; // временный файл
I : Integer;
begin
// открываем файл, из которого удаляется запись
AssignFile(F1,out.dat);
Reset(F1);
// создаем временный файл
AssignFi le(F2,temp);
Rewrite(F2);
i := -1; // счетчик записей
// читаем каждую запись в цикле
whi le not Eof(F1) do
begin
Read(F1,p);
Inc(i); // увеличиваем счетчик записей
// если запись не пятая, то выносим ее во временный файл
if i<>5 then Write(F2,p); ,
end;
// закрываем файлы
CloseFile(F2);
CloseFi le(F1);
// удаляем основной файл
Erase(F1);
// переименовываем временный файл в основной
Rename(F2,out.dat);
end;