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

Fix part 1 of bug #307 export to directory did not create files for each table if "Table structure" was unchecked. Instead the data was found in the header file afterwards.

Browse Source
This commit is contained in:
Ansgar Becker
2008-09-13 09:54:27 +00:00
parent 7e6b2b407f
commit 9b53c06018
1 changed files with 3 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
source/exportsql.pas
View File

@ -808,11 +808,13 @@ begin
StrProgress := 'Table ' + inttostr(tablecounter) + '/' + inttostr(tcount) + ': ' + checkListTables.Items[i]; StrProgress := 'Table ' + inttostr(tablecounter) + '/' + inttostr(tcount) + ': ' + checkListTables.Items[i];
lblProgress.caption := StrProgress; lblProgress.caption := StrProgress;
if tofile then
f := InitFileStream(checkListTables.Items[i], f);
if exporttables then if exporttables then
begin begin
if tofile then if tofile then
begin begin
f := InitFileStream(checkListTables.Items[i], f);
if f = nil then if f = nil then
begin begin
Screen.Cursor := crDefault; Screen.Cursor := crDefault;