Eine Schleife Abbrechen....

[Green]

wie kann ich wenn ich eine Schleife hab, selbige über eine checkbox beenden.
während die Schleife läuft reagiert ja auch alles auf der form nit, d.h. wenn ich die Checkbox drück passiert nüx,
hab folgenden Lösungsansatz, funzt aba nit:

Delphi-Quellcode:

Form1.CheckBox1.Update;                  
if Form1.CheckBox1.Checked then                    
  Exit;

[ferby]

Hallo,

wie wärs wenn du die ganze Schleife postest?

Wenn du in deine Schleife:

Application.ProcessMessages; einbaus, dann bleibt die Form (Benutzeroberfläche) nicht stecken, bzw. reagiert auf Button Klicks und so.....

[Michael Habbe]

Hi,

hier der Code:

Delphi-Quellcode:

procedure DoSomething;
var 
  i: Integer;
begin
  for i := 1 to 1000000000000000000000000000 do
  begin
    DoSomethingMore;
    Application.ProcessMessages;
    if CheckBox1.Checked then
      Break;
  end;
end;

[omata]

Eine Schleife, die man abbrechen möchte ist niemals eine FOR-Schleife. Dafür gibt es REPEAT und WHILE. Und das 1000000000000000000000000000 bei einer Integervariable ist wohl auch nicht möglich.

Also...

Delphi-Quellcode:

procedure DoSomething;
begin
  repeat
    DoSomethingMore;
    Application.ProcessMessages;
  until CheckBox1.Checked;
end;

oder noch besser...

Delphi-Quellcode:

procedure DoSomething;
begin
  while not CheckBox1.Checked do begin
    DoSomethingMore;
    Application.ProcessMessages;
  end;
end;

Gruss
Thorsten

[Luckie]

Zitat von omata:

Eine Schleife, die man abbrechen möchte ist niemals eine FOR-Schleife. Dafür gibt es REPEAT und WHILE.

Gutes Argument.

Zitat:

Und das 1000000000000000000000000000 bei einer Integervariable ist wohl auch nicht möglich.

War wohl nur ein Beispiel.

[Green]

Ich wollte aber eine For-schleife nehmen, weil die Schleife nur eine bestimmte Anzahl durchgegangen werden soll, aber eine Möglichkeit zum abbrechen haben soll. Also brauch ich ja wohl eine Forschleife oder bin ich jetzt vollkkommen blöd?

[xaromz]

Hallo,

Zitat von Green:

Ich wollte aber eine For-schleife nehmen, weil die Schleife nur eine bestimmte Anzahl durchgegangen werden soll, aber eine Möglichkeit zum abbrechen haben soll. Also brauch ich ja wohl eine Forschleife oder bin ich jetzt vollkkommen blöd?

Sowas kann man immer anders lösen. Ich bin zwar kein Freund von "Break ist böse", aber hier mal ein Ansatz:

Delphi-Quellcode:

C := 0;
while (C < 10) and (not CheckBox1.Checked) do
begin
  TuIrgendwas;
  Application.ProcessMessages;
  Inc(C);
end;

bzw.

Delphi-Quellcode:

C := 0;
repeat
  TuIrgendwas;
  Application.ProcessMessages;
  Inc(C);
until (C = 10) or CheckBox1.Checked;

Hier läuft die Schleife zehn mal durch oder wird vorher abgebrochen.

Gruß
xaromz