move startup

Author: Partouf

app/Globals/StartupParams.pas

@@ -16,7 +16,7 @@ implementation
   DataMod_Database,
   FireDAC.Comp.Client,
   Logging.Interfaces,
-  Settings;
+  Settings, MVCServer;
 
 class procedure TStartupParams.CheckDatabaseConnection;
 var
@@ -71,13 +71,19 @@ class procedure TStartupParams.Check;
       Assert(Assigned(GSettings), 'App not initialized correctly');
 
       GSettings.SettingsCheck;
+
+      Exit;
     end;
 
     if SameText(CurrentParam, '--dbtest') then
     begin
       TestDatabaseConnection;
+
+      Exit;
     end;
   end;
+
+  TMVCServer.Start;
 end;
 
 end.

app/ds24_app.dpr

@@ -25,8 +25,6 @@ begin
     GLogging.Info('ds24_app version ' + C_COMMITHASH_MAIN);
 
     TStartupParams.Check;
-
-    TMVCServer.Start;
   except
     on E: Exception do
       GLogging.Error(E.ClassName + ': ' + E.Message);