Question

delphi记事本保存的一段出错

procedure TForm1.N4Click(Sender: TObject);
begin
form1.savedialog1.Execute;
form1.Memo1.Lines.savetoFile(form1.savedialog1.FileName);
end;

我调试时，点“保存”可以正常“保存”，
但我点“保存”，弹出对话框以后点“取消”，则报错了。说找不到路径

Answer 1

加个if就行了，改成：
procedure TForm1.N4Click(Sender: TObject);
begin
if form1.savedialog1.Execute then
form1.Memo1.Lines.savetoFile(form1.savedialog1.FileName);
end;