频道分类

Delphi删除文件

作者:admin 来源: 日期:2020/11/12 11:31:09 人气: 标签:

 
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;

上一篇:Delphi计算MD5下一篇:没有资料