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.