fix: replace hardcoded Windows directory separator with DirectorySeparator

Author: ansgarbecker

source/main.pas

@@ -5233,7 +5233,7 @@ procedure TMainform.popupQueryLoadClick(Sender: TObject);
   // Click on the popupQueryLoad
   Filename := (Sender as TMenuItem).Caption;
   Filename := StripHotkey(Filename);
-  if Pos('\', Filename) = 0 then // assuming we load a snippet
+  if Pos(DirectorySeparator, Filename) = 0 then // assuming we load a snippet
     Filename := AppSettings.DirnameSnippets + Filename + FILEEXT_SNIPPET
   else begin // assuming we load a file from the recent-list
     p := Pos(' ', Filename) + 1;

source/tabletools.pas

@@ -1821,7 +1821,7 @@ procedure TfrmTableTools.DoExport(DBObj: TDBObject);
 
   if ToDir then begin
     FreeAndNil(ExportStream);
-    DbDir := IncludeTrailingPathDelimiter(GetOutputFilename(comboExportOutputTarget.Text, DBObj)) + DBObj.Database + '\';
+    DbDir := GetOutputFilename(comboExportOutputTarget.Text, DBObj) + DirectorySeparator + DBObj.Database + DirectorySeparator;
     if not DirectoryExists(DbDir) then
       ForceDirectories(DbDir);
     ExportStream := TFileStream.Create(DbDir + DBObj.ObjType.ToLower + '-' + DBObj.Name+'.sql', fmCreate or fmOpenWrite);