Don't catch too many types of exceptions, only file stream related ones, in a loop with much code which was never meant to be handled by a try/except block.

This commit is contained in:
Ansgar Becker
2012-03-08 20:14:59 +00:00
parent bc599ba495
commit f84f6e78a3

View File

@ -133,7 +133,7 @@ begin
Queries.Free;
Stream.Free;
except
on E: Exception do
on E:EFileStreamError do
begin
ErrorDialog('Error while reading file "'+SQLFileName+'"', E.Message);
Mainform.AddOrRemoveFromQueryLoadHistory(SQLFileName, False, True);