Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Laufende Prozedur abbrechen (https://www.delphipraxis.net/138736-laufende-prozedur-abbrechen.html)

wayne312 16. Aug 2009 18:10


Laufende Prozedur abbrechen
 
Hey leute,

ich möchte das man auf einen Abbruch Button klicken kann und der dann eine laufende Prozedur stoppt.
Hier ist die Prozedur die angehalten werden soll :

Delphi-Quellcode:
iz := StrToFloat(edit1.Text)*60;
    Zeit:=now+(iz)*(1.0/86400.0);
    while (now<=Zeit) do Application.processMessages;
Wie kann ich das mitten beim Zählen abbrechen/beenden?

Danke...

Klaus01 16. Aug 2009 18:13

Re: Laufende Prozedur abbrechen
 
Zitat:

Zitat von wayne312
Hey leute,

ich möchte das man auf einen Abbruch Button klicken kann und der dann eine laufende Prozedur stoppt.
Hier ist die Prozedur die angehalten werden soll :

Delphi-Quellcode:
iz := StrToFloat(edit1.Text)*60;
    Zeit:=now+(iz)*(1.0/86400.0);
    while (now<=Zeit) do Application.processMessages;
Wie kann ich das mitten beim Zählen abbrechen/beenden?

Danke...

Hallo,

eine Boolean Variable definieren z.B. notStopped
diese initialisieren (notStopped := true);

Im Button.click diese auf false setzen.

Delphi-Quellcode:
iz := StrToFloat(edit1.Text)*60;
    Zeit:=now+(iz)*(1.0/86400.0);
    while (now<=Zeit) and notStopped do Application.processMessages;
Grüße
Klaus

Apollonius 16. Aug 2009 18:13

Re: Laufende Prozedur abbrechen
 
Du musst scherzen. :shock: Nimm einen Timer!


Alle Zeitangaben in WEZ +1. Es ist jetzt 12:46 Uhr.

Powered by vBulletin® Copyright ©2000 - 2019, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2019 by Daniel R. Wolf