Wie Procedure abbrechen

[Insider2004]

Ich habe eine Procedure mit Schleife, die etwas macht (z.B. eine Berechnung, die 1 Minute braucht).
Desweiteren möchte ich einen Button haben, mit dem ich die Berechnung abbrechen kann. Wie kann ich das machen?

[Binärbaum]

Innerhalb einer for-Schleife kann man mit Break; die Schleife verlassen. Prozeduren beendet man mitExit; MfG
Binärbaum

[Jasocul]

Weitere Hinweise:
In der Schleife:
Application.ProcessMessages
Und eine globale Variable abfragen, die durch das Drücken des Buttons gesetzt werden. Kann natürlich eine Variable im Objekt TForm sein.

[mirage228]

Hi,

du packst eine Variable "FAborted: Boolean" in den Private-Abschnitt Deines Forms.

Die Schleife sieht dann z.B. so aus:

Delphi-Quellcode:

// Vorher auf false setzen!
FAborted := False;
for i := 0 to 2323324 do
begin
  // ...
  Application.ProcessMessages;
  if FAborted then Break;
end;

Schleifen abbrechen kannst Du mit Break (bei repeat oder while Schleifen, solltest Du es aber über die Abbruchbedingung der Schleife selbst tun!), Prozeduren mit Exit.

In am Abbrechen Button schreibst Du nun
FAborted := True; mfG
mirage228

[Pr0g]

Warscheinlich musst du hin und wieder in der Schleife
Application.ProcessMessages; aufrufen, damit das Programm die Message beim Klick verarbeitet.


MfG Pr0g

[Insider2004]

Danke soweit! Allerdings habe ich noch etwas:

1.Problem:
Das Application.ProcessMessages; ermöglicht meiner Application, dass ich den Abbruch-Button drücken kann. Dieser ist aber sehr schlecht "zu erreichen". D.h. die meiste Rechenzeit wird in der Schleife verbraucht. Wie kann ich dem Abbruch-Button sozusagen mehr Zeit geben?

2. Problem
Das Application.ProcessMessages; macht es möglich, dass meine Procedure nochmals von "hinten" aufgerufen wird. Wie vermeide ich diese Rekursion?


procedure TForm1.OnButtonClick;
begin
for i := 0 to 2323324 do
begin
// ...
Application.ProcessMessages;
if FAborted then Break;
end;
end;

[Luckie]

Deaktivier den Button nach dem man draufgeklickt hat.

[mirage228]

Zitat von Insider2004:

2. Problem
Das Application.ProcessMessages; macht es möglich, dass meine Procedure nochmals von "hinten" aufgerufen wird. Wie vermeide ich diese Rekursion?


procedure TForm1.OnButtonClick;
begin
for i := 0 to 2323324 do
begin
// ...
Application.ProcessMessages;
if FAborted then Break;
end;
end;

Hi,

setze eine weitere Boolean Variable ein, die Du am Anfang der Procedure auf TRUE setzt und am Ende auf FALSE.

z.B.

Delphi-Quellcode:

procedure TForm1.Button1Click;
begin
  if (FRunning) then
    Exit;
  FRunning := True;
  for i := 0 to 2323324 do
  begin
    // ...
    Application.ProcessMessages;
    if FAborted then Break;
  end;
  FRunning := False;
end;

mfG
mirage228

[Binärbaum]

Zitat von Insider2004:

2. Problem
Das Application.ProcessMessages; macht es möglich, dass meine Procedure nochmals von "hinten" aufgerufen wird. Wie vermeide ich diese Rekursion?

Delphi-Quellcode:

procedure TForm1.OnButtonClick;
begin
  for i := 0 to 2323324 do
    begin
      // ...
      Application.ProcessMessages;
      if FAborted then Break;
    end;
end;

Wenn der Button einmal gedrückt wurde, kann man die Eigenschaft Enabled des Buttons auf False setzen und am Ende der Prozedur wieder auf True:

Delphi-Quellcode:

procedure TForm1.OnButtonClick;
begin
  Button1.Enabled:= False;//Button1 gesperrt
  for i := 0 to 2323324 do
    begin
      // ...
      Application.ProcessMessages;
      if FAborted then Break;
    end;
  Button1.Enabled:= True;//Button1 wird wieder aktiviert
end;

MfG
Binärbaum

[Chewie]

Ich würde empfehlen, die langwierige Berechnung in einen seperaten Thread zu verlagern. Das hat den Vorteil, dass du durch die Priorität besser die Rechnerauslastung rgulieren kannst.
Und außerdem ist die Reaktionszeit zwischen des Klickens des Stop-Button und des eigentlichen Stopps geringer.