Bugfix: really catch any exceptions as supposed to.

This commit is contained in:
rosenfield.albert
2009-03-04 14:16:58 +00:00
parent af6d15e0e9
commit db1dc05fa3

View File

@ -256,9 +256,9 @@ begin
AExceptionData := GetExceptionData(Exception.Create('Cancelled by user.'));
try
FMysqlConn.Reconnect;
finally
MainForm.cancelling := false;
except
end;
MainForm.cancelling := false;
end else begin
AExceptionData := GetExceptionData(E);
end;
@ -287,9 +287,9 @@ begin
AExceptionData := GetExceptionData(Exception.Create('Cancelled by user.'));
try
FMysqlConn.Reconnect;
finally
MainForm.cancelling := false;
except
end;
MainForm.cancelling := false;
end else begin
AExceptionData := GetExceptionData(E);
end;