Programm während der Laufzeit beenden

[Taladan]

Ich möchte gerne, das das Programm direkt am Start mehrere Dateien ausließt. Das ist auch weiter nicht das Problem, aber wenn es die Dateien nicht findet, sollte es automatisch beenden, wie mach ich das?

Gibt es etwas bestimmtes, was ich dabei beachten sollte (außer die Streams wieder frei zu geben?

[Tyrael Y.]

Application.Terminate;

[Lefko]

Hm, ich versteh das Problem dabei noch nicht so ganz :gruebel:

Es soll sich beenden, wenn die Datei(en) nicht gefunden wird(werden)?

Delphi-Quellcode:

if not FileExists(Pfad) then
  begin
   {benutzen Speicher freigeben}
   Application.Terminate;
  end;

Oder :?:

MfG Lefko

[Ultimator]

Du könntest natürlich auch (wenn du nur ein Fenster hast)

Delphi-Quellcode:

procedure LadeDaten(Pfad:string);
begin
if not Fileexists(Pfad) then
close;
end;

verwenden.

[Taladan]

Thanks Lefko Dat hab ich gebraucht. Sorry Ultimator, über SDI´s bin ich lange drüber hinaus (besser gesagt, ich hab nie damit angefangen).