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:

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:

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