hilfe!repeat-schleife mit abbruchfunktion

[raffo]

Ich behelfe mir immer so

Delphi-Quellcode:

Button1.Tag:=0; // Annahme nicht gestoppt

While Button1.Tag=0 do
      begin
// Routine
      Application.ProcessMessages;
      end;

Button1.Tag:=0; // oder zur späteren Auswertung auf Wert lassen