Bugfix: Fix AV when executing a query that doesn't return results.

This commit is contained in:
rosenfield
2007-06-29 16:28:50 +00:00
parent a3c48969d9
commit 5d2823143e

View File

@@ -2828,7 +2828,7 @@ begin
ValidateControls;
viewingdata := false;
ActualDatabase := prevDb;
TZQuery(ds).EnableControls;
if ds <> nil then TZQuery(ds).EnableControls;
Screen.Cursor := crdefault;
MainForm.ShowStatus( STATUS_MSG_READY, 2 );
end;