While Schleife beenden, aber von aussen ?!

[Filou]

Um die Schleife von außen ab zu brechen, brauchst du eine globale Variable:

Delphi-Quellcode:

var
  stop:boolean;

Du Ereignis bei OnClick:
  stop:=true; Nun noch die Schleife:

Delphi-Quellcode:

stop := false;

while (stop=false) AND (i<t)
begin
  Application.ProcessMessages;
  inc(i);
end;

cu