From 9b53c0601814f3d766c95f2d66a3bc8dc756f5af Mon Sep 17 00:00:00 2001
From: Ansgar Becker <ansgarbecker@users.noreply.github.com>
Date: Sat, 13 Sep 2008 09:54:27 +0000
Subject: [PATCH] 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.

---
 source/exportsql.pas | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/source/exportsql.pas b/source/exportsql.pas
index bb74dae6..494a6bd1 100644
--- a/source/exportsql.pas
+++ b/source/exportsql.pas
@@ -808,11 +808,13 @@ begin
       StrProgress := 'Table ' + inttostr(tablecounter) + '/' + inttostr(tcount) + ': ' + checkListTables.Items[i];
       lblProgress.caption := StrProgress;
 
+      if tofile then
+        f := InitFileStream(checkListTables.Items[i], f);
+
       if exporttables then
       begin
         if tofile then
         begin
-          f := InitFileStream(checkListTables.Items[i], f);
           if f = nil then
           begin
             Screen.Cursor := crDefault;