Application beenden vor erstem Erzeugen von Form

[Maya]

Zitat von Chemiker:

Hallo,

Zitat:

Wenn ich feststelle, dass die Datei nicht vorhanden ist, soll CreateForm nicht aufgerufen und das Programm gleich beendet werden.

Was soll das für ein Vorteil bringen, ohne den Benutzer zu informieren, dass noch eine bestimmte Datei fehlt, das Programm ohne weiteren Kommentar zu beenden. Besser ist es doch das Form zu zeigen eine Fehlermeldung anzuzeigen und dann das Programm, ohne Klimmzüge sauber zu beenden.

Bis bald Chemiker

Ich möchte für diesen Beitrag einen "Gefällt mir"-Button.

[Sir Rufo]

So sollte das sauber sein (unabhängig davon, ob das user-friendly oder sinnvoll ist)

Delphi-Quellcode:

if not SomethingMissing then
begin
  Application.Initialize;
  Application.CreateForm(TfrmMain, frmMain);
  Application.Run;
end;

Denn jetzt verhält sich die Anwendung wie eine Konsolen-Anwendung, wenn die Anfangsbedingung nicht zutrifft.

[himitsu]

Und der Rest ist ja auch nicht schwer:

Delphi-Quellcode:

end
else
  MessageBox(0, 'da fehlt irgendwas', PChar(ExtractFileName(ParamStr(0))), MB_OK or MB_ICONERROR);

Delphi-Quellcode:

end
else
  MessageBox(0, PChar('da fehlt ' + Fehlendes), PChar(ExtractFileName(ParamStr(0))), MB_OK or MB_ICONERROR);

[Bummi]

einen hab ich noch

Delphi-Quellcode:

if 1=0 then
  begin
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TForm2, Form2);
  Application.Run;
  end
else
  begin
      if Windows.AllocConsole then
      try
        WriteLn('Shit happens ...');
        write('> ');
        readln;
      finally
        FreeConsole;
      end;

  end;