Delphi-PRAXiS - Delphi Laufende Prozedur abbrechen

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)

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

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

Re: Laufende Prozedur abbrechen

Du musst scherzen. :shock: Nimm einen Timer!