Repeat anhalten

[k4ni]

Hoho ,

Es sieht so aus:
Da ist eine procedure (Button1Click) die eine repeat schleife enthält, doch ich möchte diese mit der procedure von Button2Click anhalten oder abbrechen am besten, ist das möglich? Denn da ist ein riesen macro "script" in der Button1Click procedure und in der zeit das abspielt kann man das programm schlecht beenden (geht einfach nicht ).

Danke im vorraus

[Dax]

Delphi-Quellcode:

TForm1 = class (* ...
  *)
  private
    fPause: Boolean;
  // ...
  end;

procedure TForm1.ButtonPauseClick//...
begin
  fPause := not fPause;
end;

procedure TForm1.ButtonMitDemRiesenCode// ...sollte eh nicht sein
//...
begin
  // ...
  repeat
    if fPause then
      Sleep(100)
    else
      // dein Code
    Application.ProcessMessages;
  end;
end;

Also einfach ein Flag setzen und pro Durchlauf prüfen.. Dabei das Application.ProcessMessages nicht vergessen.

jolan'tru

[k4ni]

sowas ähnliches hab ich da schon rangesetzt, und zwar das:

Delphi-Quellcode:

...
repeat
if Odd(GetAsyncKeyState(Vk_F10)) then
Exit
else
....

Nur eine repeat schleife kann sehr lange dauern.

Gibt es anderen möglichkeiten?

[Dax]

Verwende Threads.