Application beenden, wärend Procedure

[gandime]

Hi,
wie beende ich meine Application, wärend eine Procedure ausgeführt wird?

mein bisherigen versuche:

Delphi-Quellcode:

procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  application.Terminate;
  application.Destroy; 
  close;
end;

hab alle mal durchprobiert auch in Verbindung miteinander.


mfg
gandime

[Dani]

Delphi-Quellcode:

procedure Finity;
begin
  while true do begin
    Foo();
    if ZeitZumSterben then begin
      Application.Terminate;  //Beendet das Programm sobald möglich.
      Exit;  //Verlässt die Prozedur und das Programm wird beendet.   
    end;
  end;
end;

Das darf natürlich nicht in CloseQuery drin stehen; dort solltest du wirklich nur prüfen, ob du CanClose auf true oder false setzen willst.

[gandime]

Das hilft/funktioniert nicht, da das Prog in einer repeat-Schleife steckt wo es nicht raus kommt:

Delphi-Quellcode:

repeat
bt_weiter.Enabled:=true;
  repeat
    application.ProcessMessages;
    sleep(10);
  until b_fertig=true;
  b_fertig:=false;
until set_pop3=true;

ich könnte natürlich überall folgendes hinzufügen:

until (set_pop3=true) or (application.Terminated); Aber da habe ich Angst das etwas am pop3 ausgelöst wird was noch nicht gemacht werden soll wie z.B. eMail löschen oder sowas.

Das könnte man natürlich auch umgehen

Delphi-Quellcode:

if application.terminated then
begin
  exit;
end;

aber bei fast 10000 Zeilen Code habe ich nicht recht viel lust das alles nachzugucken und einzufügen

[Dani]

Auf was wartest du denn in dieser Schleife? b_fertig wird dort ja niemals true, das sieht aus wie eine Endlosschleife...

[gandime]

Es wird normalerweise durch einen Buttonklick erfüllt.
Aber ich frage danach ob es möglich ist ohne das es in der Schleife eingetragen ist das Prog sofort zu schließen

[rawsoul]

halt;

[gandime]

genau das habe ich gesucht
thx

edit:
gibt es auch eine Procedure um nur alle Schleifen abzubrechen und nicht das Prog auszuschalten?

[sirius]

Du kannst eine Exception erzeugen und diese bis zur WndProc durchreichen. (Wäre auch angebrachter anstatt "halt" zu verwenden)

[RavenIV]

Zitat von gandime:

gibt es auch eine Procedure um nur alle Schleifen abzubrechen und nicht das Prog auszuschalten?

Schau Dir mal in der Delphi-Hilfe die Kapitel "Schleifen" und "Ablaufsteuerung" an.

break: bricht eine Schliefe ab
continue: macht mit dem nächsten Schleifendurchlauf weiter
exit: verlässt die aktuelle Prozedur / Funktion
usw.

Noch was:
Wenn Du nicht mit Threads arbeitest, kann sich das Programm nur jeweils in einer Schleife befinden.

[gandime]

ich habe aber zwei verschiedene schleifen:

Delphi-Quellcode:

repeat
bt_weiter.Enabled:=true;
  repeat
    application.ProcessMessages;
    sleep(10);
  until b_fertig=true;
  b_fertig:=false;
until set_pop3=true;

Delphi-Quellcode:

procedure TForm1.bt_stopClick(Sender: TObject);
begin
  //hiermit will ich alle anderen Schleifen beenden
end;

das geht ja mit beak exit usw. nicht