本文整理自网络，侵删。
在本文中，我们将看到如何从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》频道 >>
