Fix old query result from disconnected session being displayed as Node|Node|...

This commit is contained in:
Ansgar Becker
2009-01-05 18:09:49 +00:00
parent e8ee48635e
commit 925f42ffc7

View File

@ -1191,9 +1191,14 @@ begin
SaveListSetup(ListTables);
SaveListSetup(ListColumns);
FreeAndNil(CreateTableForm);
debug('mem: clearing query and browse data.');
SetLength(FDataGridResult.Rows, 0);
SetLength(FDataGridResult.Columns, 0);
SetLength(FQueryGridResult.Rows, 0);
SetLength(FQueryGridResult.Columns, 0);
ValidateControls(False);
Action := caFree;
@ -1726,12 +1731,6 @@ begin
FreeAndNil(DatabasesWanted);
FreeAndNil(Databases);
debug('mem: clearing query and browse data.');
SetLength(FDataGridResult.Rows, 0);
SetLength(FDataGridResult.Columns, 0);
SetLength(FQueryGridResult.Rows, 0);
SetLength(FQueryGridResult.Columns, 0);
// Closing connection
if Assigned(FMysqlConn) then begin
LogSQL('Closing connection to "'+SessionName+'" session (' + FMysqlConn.Connection.hostname + ') ...');