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..