Repeat anhalten

[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