opensource/HeidiSQL
1
0
Fork 0
mirror of https://github.com/HeidiSQL/HeidiSQL.git synced 2025-08-06 18:24:26 +08:00
Code Issues Packages Projects Releases Wiki Activity

Minor code simplification, old TNT StringList workaround.

Browse Source
This commit is contained in:
Ansgar Becker
2010-01-27 23:45:55 +00:00
parent 9f139029b7
commit 49b9d9014b
1 changed files with 1 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/tabletools.pas
View File

@ -717,7 +717,6 @@ var
NewIdx, NetType: Integer; NewIdx, NetType: Integer;
DBNode: PVirtualNode; DBNode: PVirtualNode;
SessionName: String; SessionName: String;
Databases: TStringList;
begin begin
// Target type (file, directory, ...) selected // Target type (file, directory, ...) selected
OldItem := comboExportOutputTarget.Text; OldItem := comboExportOutputTarget.Text;
@ -777,8 +776,7 @@ begin
Screen.Cursor := crHourglass; Screen.Cursor := crHourglass;
try try
FTargetConnection.Active := True; FTargetConnection.Active := True;
Databases := FTargetConnection.GetCol('SHOW DATABASES'); comboExportOutputTarget.Items := FTargetConnection.GetCol('SHOW DATABASES');
comboExportOutputTarget.Items.Text := Databases.Text;
comboExportOutputTarget.Items.Insert(0, '[Same as on source server]'); comboExportOutputTarget.Items.Insert(0, '[Same as on source server]');
comboExportOutputTarget.ItemIndex := 0; comboExportOutputTarget.ItemIndex := 0;
Screen.Cursor := crDefault; Screen.Cursor := crDefault;