Einzelnen Beitrag anzeigen

Klaus01

Registriert seit: 30. Nov 2005
Ort: München
5.310 Beiträge
 
Delphi XE7 Professional
 
#2

Re: Laufende Prozedur abbrechen

  Alt 16. Aug 2009, 18:13
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
Klaus
  Mit Zitat antworten Zitat