opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2026-03-13 09:24:25 +08:00
Code Issues Packages Projects Releases Wiki Activity

Fix sporadic AV which seems to follow after a reconnect with no db selected.

Browse Source
This commit is contained in:
Ansgar Becker
2010-01-14 18:23:17 +00:00
parent fcb62acc07
commit 307bb8ca65
1 changed files with 4 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
source/mysql_connection.pas
View File

@@ -914,7 +914,7 @@ begin
end else begin
for i:=0 to FDBObjectLists.Count-1 do
TDBObjectList(FDBObjectLists.Objects[i]).Free;
FreeAndNil(FDBObjectLists);
FDBObjectLists.Clear;
end;
end;
@@ -938,8 +938,6 @@ begin
if DbObjectsCached(db) then
Result := FDBObjectLists.Objects[FDBObjectLists.IndexOf(db)] as TDBObjectList
else begin
if not Assigned(FDBObjectLists) then
FDBObjectLists := TWideStringList.Create;
Result := TDBObjectList.Create;
Results := nil;
rx := TRegExpr.Create;
@@ -1126,6 +1124,9 @@ begin
FreeAndNil(Results);
end;
// Add list of objects in this database to cached list of all databases
if not Assigned(FDBObjectLists) then
FDBObjectLists := TWideStringList.Create;
FDBObjectLists.AddObject(db, Result);
end;
end;