opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-16 11:42:12 +08:00
Code Issues Packages Projects Releases Wiki Activity

Don't raise exception when user enters an invalid filter, rather do that with a normal error dialog. Fixes issue #1559.

Browse Source
This commit is contained in:
Ansgar Becker
2009-12-23 17:51:57 +00:00
parent 6a1df0b488
commit 92eeced113
1 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

17
source/main.pas
View File

@ -6387,13 +6387,16 @@ begin
try try
Results := Connection.GetResults(query); Results := Connection.GetResults(query);
except except
// if something bad happened, nuke cache, reset cursor and display error. on E:Exception do begin
TVirtualStringTree(Sender).RootNodeCount := 0; // if something bad happened, nuke cache, reset cursor and display error.
SetLength(res.Rows, 0); TVirtualStringTree(Sender).RootNodeCount := 0;
ReachedEOT := true; SetLength(res.Rows, 0);
ShowStatus(STATUS_MSG_READY); ReachedEOT := true;
Screen.Cursor := crDefault; ShowStatus(STATUS_MSG_READY);
raise; Screen.Cursor := crDefault;
MessageDlg(E.Message, mtError, [mbOK], 0);
Exit;
end;
end; end;
if Cardinal(Results.RecordCount) < limit then begin if Cardinal(Results.RecordCount) < limit then begin
limit := Results.RecordCount; limit := Results.RecordCount;