Delphi Application beenden, wärend Procedure

Thema durchsuchen

Ansicht

Themen-Optionen

Application beenden, wärend Procedure

Ein Thema von gandime · begonnen am 7. Jan 2008 · letzter Beitrag vom 8. Jan 2008

Vorheriger Beitrag

Nächster Beitrag

DeddyH

Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.660 Beiträge

Delphi 12 Athens

#11

Re: Application beenden, wärend Procedure

7. Jan 2008, 08:45

Vielleicht so in der Art:

markieren

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

Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen