Handle all types of exceptions when renaming database, not only connection related ones. Fixes issue #1912.

This commit is contained in:
Ansgar Becker
2010-05-07 17:22:28 +00:00
parent 0b1c6d350c
commit 18c08dc4d1

View File

@ -284,7 +284,7 @@ begin
// Close form
ModalResult := mrOK;
except
on E:EDatabaseError do
on E:Exception do
MessageDlg( 'Altering database "'+editDBName.Text+'" failed:'+CRLF+CRLF+E.Message, mtError, [mbOK], 0 );
// Keep form open
end;