Delphi删除文件

在本文中，我们将看到如何从Delphi中删除文件（Delphi删除文件），为此，我们将不得不使用System.SysUtils单元。

在SysUtils内部，我们具有DeleteFile函数，该函数从磁盘上删除文件（作为参数传递），但是要小心，它会完全删除它，我们将无法恢复它。

这是一个非常容易使用的函数，我们只需要传递路径和文件名作为参数，如果删除成功，它将返回True，否则将返回False。

Delphi函数SysUtils.DeleteFile的声明
在Delphi中DeleteFile（）函数的声明如下：

Uses
  System.SysUtils;
 
function DeleteFile(const FileName: string): Boolean;
从声明中可以看到，我们只有一个名为FileName的参数，其类型为string，我们将在其中传递整个路径和要删除的文件名。它将为我们提供布尔类型的结果，如果文件删除成功，则返回True，如果发生错误（例如文件不再存在），则返回False。

DeleteFile（）示例
以下示例删除驱动器“ c：/file.txt”上的文件：

Uses
  System.SysUtils;
 
... 
 
procedure TForm1.Button1Click(Sender: TObject);
var
  FileName: string;
begin
  // Ruta y nombre del archivo a eliminar
  Filename:= 'c:/file.txt';
  // Verificamos primero si el archivo existe
  if FileExists(FileName) then
  begin
    // Preguntamos si quiere eliminar el archivo
    if MessageDlg(('Realmente desea eliminar el archivo ' + ExtractFileName(FileName) + '?'),
     TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbYes, TMsgDlgBtn.mbNo], 0, TMsgDlgBtn.mbNo) = IDYes then
    begin
      // Eliminamos el archivo
      if DeleteFile(FileName) then
        MessageDlg(('Se ha eliminado el archivo ' + ExtractFileName(FileName) + ' con éxito.'),
          TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbOK], 0)
      else
        MessageDlg(('Se ha producido un error al eliminar el archivo ' + ExtractFileName(FileName) + '.'),
          TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbOK], 0);
    end;
  end
  else
  begin
    // Mensaje de error si el archivo no existe
    MessageDlg(('El archivo ' + ExtractFileName(FileName) + ' no existe.'),
      TMsgDlgType.mtConfirmation, [TMsgDlgBtn.mbOK], 0);
  end;
end;