unit1.pas

来自「Delphi 异常处理是软件处理中很重要的一个技术」· PAS 代码 · 共 57 行

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

  F: Textfile;//定义一个文件类型

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
begin

  OpenDialog1.Title := '删除文件';

  if OpenDialog1.Execute then   //打开操作框成功
    begin
       AssignFile(F, OpenDialog1.FileName);
       try
         Reset(F);
         if MessageDlg('删除 ' +OpenDialog1.FileName + '?',
          mtConfirmation, [mbYes, mbNo], 0) = mrYes then
          begin
            System.CloseFile(F);
            Erase(F);
          end;

      except
         on EInOutError do
            MessageDlg('File I/O error.', mtError, [mbOk], 0);
      end;
   end;

end;

end.