Minor safety fix: Be sure status bar doesn't display old "db: xx tables".

This commit is contained in:
Ansgar Becker
2007-10-21 17:53:11 +00:00
parent ea8e9da577
commit e2e13aac42

View File

@@ -2231,10 +2231,10 @@ begin
VTRowDataListTables[i-1].Captions := ListCaptions;
ds.Next;
end;
mainform.showstatus(db + ': ' + IntToStr(ds.RecordCount) +' table(s)');
finally
ListTables.RootNodeCount := Length(VTRowDataListTables);
ListTables.EndUpdate;
Mainform.showstatus(db + ': ' + IntToStr(ListTables.RootNodeCount) +' table(s)');
Screen.Cursor := crDefault;
end;
end;