Delay abbrechen

[XXcD]

Hallo,
ich wollte mal fragen ob man die delay Funktion extern(mit einer anderen procedure) abbrechen kann?

[fwsp]

Delphi-Quellcode:

var StillDelay: Boolean;

...
StillDelay := True;

...

while StillDelay do
begin
  Delay;
end;

...

[himitsu]

Schau dir mal die verschiedenen Delay-Versionen an, bei den meisten kannst du die Abbruchbedingung erweitern ;)

z.B. in http://www.delphipraxis.net/internal....php?p=578#578

Delphi-Quellcode:

  until ((stop - start ) >= msec) or irgendwasanderes;

[XXcD]

Also ich hab jetzt verstanden was da gemeint ist aber der nimmt das nicht an der sagt immer ein error:

Zitat:

until (stop - start ) >= msec or Button1;

ist da was falsch oder wieso geht das nicht

[Klaus01]

Zitat:

Zitat von XXcD

Also ich hab jetzt verstanden was da gemeint ist aber der nimmt das nicht an der sagt immer ein error:

Zitat:

until (stop - start ) >= msec or Button1;

ist da was falsch oder wieso geht das nicht

until ((stop - start ) >= msec) and (not Button1.clicked);

Du musst Dir eine Variable schaffen, die festhält das der Button
gedrückt wurde. Button1.clicked soll das nur verdeutlichen.

Einfacher wäre es mit einer Checkbox zu lösen.

Grüße
Klaus

[Die Muhkuh]

Delphi-Quellcode:

var
  StopDelay: Boolean = false;

// Buttonclick
begin
  StopDelay := true;
end;

// Delay
[...]
until ((stop - start ) >= msec) and (StopDelay);

So ungefähr.

[himitsu]

Code:

until ((stop - start ) >= msec) [color=#ff0000][b]or[/b][/color] StopDelay;

UNTIL verläßt die Schleife, wenn TRUE.

@Spider: deines bricht erst ab, wenn der Button gedrückt wurde und die Zeit abgelaufen ist.

[XXcD]

wenn ich das compilieren will sagt der mir nen error in der variable an. Was hab ich denn jetzt wieder falsch gemacht?
Kann es sein, dass es daran liegt dass ich delphi 10 light benutze?

[himitsu]

Was für einen Error?

Und hast du die auch global definiert?

[Klaus01]

-- Mist verzapft --
gelöscht.

grüße
Klaus