Laufende whileschleife auf Knopfdruck unterbrechen

[stahli]

Das ist etwas kompliziert:

Wenn Deine Schleife läuft ist Dein Projekt mit der beschäftigt und kommt nicht dazu, die Formularereignisse abzuhandeln. Wann soll es das auch tun?

Wenn Du das willst, musst Du dem Formular extra Rechenzeit zur Verfügung stellen. Das geht am einfachsten mit Application.ProcessMessages z.B. am Ende jeden Schleifendurchlaufs.

Das bremst natürlich die Geschwindigkeit des Schleifendurchlaufs aus. Das Projekt muss ja immer zwischendurch die Ereignisse behandeln. Manchmal ruft man das daher auch nur jeden 1000ten Durchlauf auf oder so.

Man muss natürlich auch darauf achten, dass man nichts zerstört oder verändert, was in der Schleife benutzt wird.

Besser wäre grundsätzlich, für jeden Prozess eigene Threads zu benutzen aber für den Anfang geht auch die Lösung mit ProcessMessages.

[HL92]

Vielen dank für die schnelle Reaktion.
Ich hab die Anweisung Application.ProcessMessages bereits in der Schleife.

Er liest dann zwar den Status aus aber da der Knopfdruck diesen nicht verändert
sondern auf das knopfdrücken garnicht reagiert geht die Schleife direkt weiter.

Ich habe schon überlegt zu invertieren, dass ich den Status von c in der Schleife
auf false setze und dann eine Art:

"derKnopfwurdenichtgedrückt" wieder zuück.

Denkbar oder komplett umbauen und mit threads lösen?
wie kann ich das für mein Problem nutzen?

[stahli]

Die Informationen sind nicht sehr aussagekräftig.

Mein Vorschlag:

Bau Dir ein kleines Demoprojekt das nur eine Schleife und einen Button zum starten und zum abbrechen implementiert.
So wird es wohl am einfachsten, die Abläufe nachzuvollziehen und zu lernen.

Wenn Du das nicht willst, dann schau zumindest mal, ob Dein ButtonClick abgearbeitet wird (Haltepunkt setzen).

Du kannst natürlich hier auch mal Dein Projekt als Zip anhängen. Aber ich denke, da wird einiges noch recht suboptimal laufen.


Mit Threads würde ich jetzt an Deiner Stelle noch nicht anfangen.

[mm1256]

Ich würde es erst mal mit der SuFu versuchen. "schleife unterbrechen" und schon hast du eine Menge Vorschläge

[Redeemer]

Ich nehme das hier:

Code:

if GetAsyncKeyState(VK_ESCAPE) < 0 then
Exit;

Problem ist, dass man die Taste je nachdem, wie viel er in der Schleife macht, etwas länger drücken muss, bis die SChleife halt an dem Teil vorbeikommt.

[Dejan Vu]

Ich verwende das:

Delphi-Quellcode:

Type
  TMyForm = class (TForm)
    
    Procedure ButtonAbbruchClick(Sender : TObject);
...
    FSchleifenAbbruchErwuenscht : Boolean;
    Property SchleifenAbbruchErwuenscht : Boolean Read FSchleifenAbbruchErwuenscht Write SetSchleifenAbbruchErwuenscht;
  ...
    Procedure MeineSchleife;
  end;

Procedure TMyForm.SetSchleifenAbbruchErwuenscht (value : Boolean);
begin
  ButtonAbbruch.Enabled := not Value;
  FButtonAbbruch := Value;
End;

Procedure TMyForm.MeineSchleife;
begin
  SchleifenAbbruchErwuenscht := false;
  try
    while true do begin
       Application.ProcessMessages;
       if SchleifenAbbruchErwuenscht then break;
       DoSomething();
    end;
  finally
    SchleifenAbbruchErwuenscht := false;
  end
end;

Procedure TMyForm.ButtonAbbruchClick(Sender : TObject);
Begin
  SchleifenAbbruchErwuenscht := true;
end;

Durch den Aufruf von Application.ProcessMessages wird auch der Click-Handler des ButtonAbbruch ausgeführt. Dieser zeigt nun an, das ein Schleifenabbruch erwünscht ist.
Die Schleife bekommt das mit und kann sich beenden.

Diese Property steuert gleichzeitig, ob der Button überhaupt klickbar ist.

[BadenPower]

Zitat von Dejan Vu:

Delphi-Quellcode:

  finally
    SchleifenAbbruchErwuenscht := false;
  end

...

Diese Property steuert gleichzeitig, ob der Button überhaupt klickbar ist.

Solltest Du nicht besser im Finally-Abschnitt den Wert auf "true" setzen?

Wenn DU dort "false" setzt, dann ist der Button Enabled und signalisiert so fälschlicherweise dem Anwender, dass eine Schleife laufen würde.

[Sir Rufo]

Dieses lässt sich insgesamt auch sehr schön generalisieren.

Eigentlich habe ich eine Aktion, die ausgeführt werden soll. Diese kann gestartet und während der Ausführung abgebrochen werden. Schön ist dann noch eine Benachrichtigung am Ende der Aktion.

Erst vor kurzem wurde hier das Command-Pattern angesprochen, dass hervorragend dazu passt:

Delphi-Quellcode:

ICommand = interface
  function CanExecute : Boolean;
  procedure Execute;
end;

Eine Aktion würde demnach so aussehen:

Delphi-Quellcode:

TActionResult = ( arCancelled, arException, arFinished );
TActionFinishedEvent = procedure ( Sender : TObject; ActionResult : TActionResult );

IAction = interface
  property StartCommand : ICommand;
  property CancelCommand : ICommand;
  property OnFinished : TActionFinishedEvent;
end;

Genau damit würde ich ansetzen. Ob die dann mit einem Thread oder eben mit Application.ProcessMessages ist erst mal schnurz (Threads wären hier aber schon die richtige Wahl).

[Dejan Vu]

Zitat von BadenPower:

Solltest Du nicht besser im Finally-Abschnitt den Wert auf "true" setzen?

Vermutlich. Achte mal auf die Zeit, wann ich das geschrieben habe. Da war ich -glaube ich- noch nicht einmal wach.