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