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;