tfbdataprocess, close db on createdatabase

riderkick · Dec 29, 2015 · 74ce180 · 74ce180
1 parent d60f979
commit 74ce180
Showing 1 changed file with 3 additions and 4 deletions.
diff --git a/baseunits/uData.pas b/baseunits/uData.pas
@@ -1177,10 +1177,9 @@ procedure TDBDataProcess.CreateDatabase(AWebsite: String);
 var
   filepath: String;
 begin
-  if AWebsite <> '' then
-    FWebsite := AWebsite;
-  if FWebsite = '' then
-    Exit;
+  if AWebsite <> '' then FWebsite := AWebsite;
+  if FWebsite = '' then Exit;
+  Close;
   filepath := fmdDirectory + DATA_FOLDER + FWebsite + DBDATA_EXT;
   if FileExistsUTF8(filepath) then
     DeleteFileUTF8(filepath);