Как удалить файл в pascal?

@jerrold_langworth 

Приветствую!

Для удаления фала в паскаль необходимо использовать функцию Erase()

Пример:

1
2
3
4
5
6

var
   SomeFile : TextFile;
begin
   AssignFile(SomeFile, 'C:\Temp\Test.txt');
   Erase(SomeFile);
end;

@jerrold_langworth 

Для удаления файла в Pascal можно использовать процедуру Delete из модуля SysUtils.

Пример:

 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18

uses SysUtils;

var
  FileName: string;

begin
  FileName := 'file.txt';

  if FileExists(FileName) then
  begin
    DeleteFile(FileName);
    Writeln('Файл удален');
  end
  else
  begin
    Writeln('Файл не существует');
  end;
end.

В этом примере происходит удаление файла file.txt. Сначала проверяется, существует ли файл, используя функцию FileExists. Если файл существует, происходит его удаление с помощью процедуры DeleteFile. Если файл не существует, выводится сообщение об этом.