Hallo,
wie kann ich eine Schleife am schnellsten verlassen?
BEISPIEL
Abbruch :=False;
Repeat
A:=A+1;
B:=B+1;
C:=C+1;
usw.
Until Abbruch
Diese Schleife könnte ich nun verlassen indem ich die Variable in einer anderen Proceduer auf True setze. Nun können im ungünstigsten Fall die Variablen A bis C um eins inkrementiert werden. Um dies zu vermeiden müsste ich nun hinter jeden inkrementiert-Befehl eine Abfrage der Variable „Abbruch“ durchführen und im Falle True die Schleife mit Break beenden.
Da sich im Originalcode mehrere hundert Befehlszeilen befinden ist mir dies zu aufwendig.
Gibt es eine Möglichkeit die Schleife , die sich in einer Procedure befindet durch eine andere Procedure zu beenden?
Ich habe schon versucht die Schleife in Try Except einzubinden und durch einen Button-Click mit Raise eine Excepten ausgelöst, um somit die Schleife zu unterbrechen. Hat nicht funktioniert.
Es wäre möglich die gesamte Procedure im in der sich die Schleife befindet von aussen mit Exit zu beenden. Aber wie??
Danke
Michael
wie kann ich eine Schleife am schnellsten verlassen?
BEISPIEL
Abbruch :=False;
Repeat
A:=A+1;
B:=B+1;
C:=C+1;
usw.
Until Abbruch
Diese Schleife könnte ich nun verlassen indem ich die Variable in einer anderen Proceduer auf True setze. Nun können im ungünstigsten Fall die Variablen A bis C um eins inkrementiert werden. Um dies zu vermeiden müsste ich nun hinter jeden inkrementiert-Befehl eine Abfrage der Variable „Abbruch“ durchführen und im Falle True die Schleife mit Break beenden.
Da sich im Originalcode mehrere hundert Befehlszeilen befinden ist mir dies zu aufwendig.
Gibt es eine Möglichkeit die Schleife , die sich in einer Procedure befindet durch eine andere Procedure zu beenden?
Ich habe schon versucht die Schleife in Try Except einzubinden und durch einen Button-Click mit Raise eine Excepten ausgelöst, um somit die Schleife zu unterbrechen. Hat nicht funktioniert.
Es wäre möglich die gesamte Procedure im in der sich die Schleife befindet von aussen mit Exit zu beenden. Aber wie??
Danke
Michael
Comment