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

* Bugfix: plug the most obvious memory leaks.

Browse Source 
* Clear some unused code and wrong comments.
This commit is contained in:
rosenfield
2007-11-09 09:51:31 +00:00
parent 51c23000f9
commit e7bcbdf293
23 changed files with 204 additions and 56 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/sqlhelp.pas
View File

@@ -132,6 +132,7 @@ begin
ParentNode.DeleteChildren;
topic := ParentNode.Text;
end;
ds := nil;
try
Screen.Cursor := crHourglass;
ds := m.GetResults( 'HELP "'+topic+'"' );
@@ -154,6 +155,7 @@ begin
ds.Next;
end;
finally
if ds <> nil then ds.Close;
FreeAndNil( ds );
Screen.Cursor := crDefault;
end;
@@ -261,6 +263,7 @@ begin
Caption := DEFAULT_WINDOW_CAPTION;
result := false; // Keyword not found yet
ds := nil;
if Keyword <> '' then
try
Screen.Cursor := crHourglass;
@@ -278,6 +281,7 @@ begin
result := true;
end;
finally
if ds <> nil then ds.Close;
FreeAndNil( ds );
Screen.Cursor := crDefault;
end;