Application beenden, wärend Procedure

[DeddyH]

Vielleicht so in der Art:

Delphi-Quellcode:

abgebrochen := false;
repeat
  bt_weiter.Enabled:=true;
  repeat
    application.ProcessMessages;
    if abgebrochen then break; //verlässt die innere Schleife
    sleep(10);
  until b_fertig;
  b_fertig:=false;
until set_pop3 or abgebrochen; //verlässt ggf. die äußere Schleife

[rawsoul]

Zitat von gandime:

genau das habe ich gesucht

War allerdings eher als schlechter Scherz zu verstehen, da dies eine "brutalo"-Möglichkeit ist. Soweit ich weiß hinterlässt es auch meist Memoryleaks.

[shmia]

Zitat von gandime:

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

Das wäre aber genau die richtige Lösung.
Der obige Code muss an strategisch richtigen Stellen in deinem Programm eingebaut werden.
Dabei helfen folgende Überlegungen:
Dein Programm sollte spätestens nach 1,5 Sekunden reagieren, nach dem der Benutzer es beendet hat.
Wenn es also 2 oder mehr verschachtelte Schleifen gibt, dann reicht es meistens aus, obigen Code
in die äussere Schleife zu packen.
Die Variable Application.Terminated kann sich nur ändern, wenn zuvor Application.ProcessMessages aufgerufen wurde !
Also ergibt sich logisch folgende Konstruktion:

Delphi-Quellcode:

application.ProcessMessages;
if application.Terminated then exit;

[gandime]

Ok dann muss ich mich damit abfinden das ich an allen Endlosschleifen application.terminated hinzufügen muss...