Laufende Prozedur abbrechen

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

[Klaus01]

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]

Du musst scherzen. Nimm einen Timer!