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

13
source/createtable.pas
View File

@@ -54,6 +54,7 @@ type
lblCollation: TLabel;
comboCharset: TComboBox;
comboCollation: TComboBox;
procedure FormDestroy(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure EditTablenameChange(Sender: TObject);
procedure ButtonCancelClick(Sender: TObject);
@@ -135,7 +136,7 @@ var
engineSupport : String;
begin
try
dsCollations := Mainform.Childwin.ExecSelectQuery('SHOW COLLATION');
dsCollations := Mainform.Childwin.GetResults('SHOW COLLATION');
// Detect servers default charset
defaultCharset := Mainform.Childwin.GetVar( 'SHOW VARIABLES LIKE '+esc('character_set_server'), 1 );
except
@@ -163,7 +164,7 @@ begin
comboCollation.Enabled := dsCollations <> nil;
lblCollation.Enabled := comboCollation.Enabled;
dsEngines := Mainform.Childwin.ExecSelectQuery('SHOW ENGINES', True);
dsEngines := Mainform.Childwin.GetResults('SHOW ENGINES', True);
if dsEngines <> nil then
begin
ComboboxTableType.Style := csDropDownList; // No editing needed
@@ -181,10 +182,18 @@ begin
dsEngines.Next;
end;
ComboboxTableType.Items.EndUpdate;
dsEngines.Close;
end;
FreeAndNil(dsEngines);
end;
procedure TCreateTableForm.FormDestroy(Sender: TObject);
begin
if dsCollations <> nil then dsCollations.Close;
FreeAndNil(dsCollations);
end;
procedure TCreateTableForm.ButtonCancelClick(Sender: TObject);
begin
ModalResult := mrCancel;