Exit ?!

[MatWur]

Zitat:

Zitat von -187-

Delphi-Quellcode:

  Procedure SearchingFiles(Filename:String);
begin
  if SearchForFile(GetSysDir+'\', Filename, APathFound) then
    WriteLn(myFile,':: Available: '+GetSysDir+'\'+Filename) else
    WriteLn(myFile,':: Missing: '+GetSysDir+'\'+Filename);
    end;

Ich möchte das dass Programm schließt wenn die Datei nich vorhanden ist. Also sowas wie

Delphi-Quellcode:

else
    WriteLn(myFile,':: Missing: '+GetSysDir+'\'+Filename) AND EXIT;

Wie mach ich das , ich möchte nich nochmal extra eine if File Exists durchführen..

Die AND-Anweisung vor dem Exit ist hier irgendwie nicht sinnvoll. Exit beendet die aktuelle Prozedur/Funktion/Routine, nicht das Programm.

probier mal Application.terminate;

mfg

Matthias

[Namenloser]

Warum nicht einfach so? Halt ist genau das, was du suchst. (für application.close musst du die unit forms einbinden, die dein programm aber nur unnötig ausbläht)

Delphi-Quellcode:

  if SearchForFile(GetSysDir+'\', Filename, APathFound) then
    WriteLn(myFile,':: Available: '+GetSysDir+'\'+Filename) 
  else
  begin
    WriteLn(myFile,':: Missing: '+GetSysDir+'\'+Filename); 
    halt;
  end;

[Steve]

Genau das habe ich doch auch geschrieben :gruebel: