在打开的目录窗口上点击取消报错怎么解决？
procedure TForm2.Button4Click(Sender: TObject);
var
DD : integer;
fname2:string;
CKWJ:textfile;

begin

try
if Savedialog1.Execute then
begin
fname2:=savedialog1.FileName;
Edit5.Text:=fname2;
assignfile(CKWJ,fname2);
rewrite(CKWJ);

writeln(CKWJ,DD);

end;
Closefile(CKWJ); // 报错 I/O error 103 (怎么才能让点击取消显示下面的信息呢？)
except
Closefile(CKWJ);
ShowMessage(' 注意：用户取消保存！');
end;

end;

[解决办法]
或者这样试试

Delphi(Pascal) code

var  DD : integer;  fname2:string;  CKWJ:textfile;begin  try  if Savedialog1.Execute then  begin  fname2:=savedialog1.FileName;  Edit1.Text:=fname2;  assignfile(CKWJ,fname2);  rewrite(CKWJ);  writeln(CKWJ,DD);  Closefile(CKWJ);  end;  except  //Closefile(CKWJ);  ShowMessage(' 注意：用户取消保存！');  end;
[解决办法]
这是肯定的，except 只有在遇到异常的时候才会抛出，