Verschachtelte Schleifen unterbrechen

[himitsu]

Delphi-Quellcode:

for i := 0 to 1310719 do
begin
  x := i div 1024;
  y := i mod 1024;
  ...
end;

Und schon kommt man auch mit einem BREAK da raus.


PS: Man kann sich oftmals auch noch mit dem guten alten, aber irgendwie dennoch ständig verdamten, GOTO behelfen.

oder eben so

Delphi-Quellcode:

for y := 0 to 1023 do
begin
  for x := 0 to 1279 do
  begin
    Canvas.Pixels[x,y] := CalculateMandelbrotColor(x,y);
    if (not FRunning) or Application.Teminated then
      break;
  end; 
  if (not FRunning) or Application.Teminated then 
  begin
    ...
    break;
  end;
end;

Aber ganz im Ernst, sowas wie Break(2); , um 2 Schleifen abzubrechen hab ich mir schon öfters gewünscht.