verschachelte for schleifen beenden

[dizzy]

Ach: Mit dem Flag das kann man auch noch so machen:

Delphi-Quellcode:

i := 1;
j := 1;
k := 1;
doBreak := false;

while (i<=1000) and not doBreak do
begin
  while (j<=1000) and not doBreak do
  begin
    while (k<=1000) and not doBreak do
    begin
      if fun(i,j,k) then doBreak := true;
      inc(k);
    end;
    inc(j);
  end;
  inc(i);
end;

und es ginge sogar in einer Schleife:

Delphi-Quellcode:

i := 1;
j := 1;
k := 1;

while true do
begin
  if fun(i,j,k) then Break;
  inc(i);
  if i>1000 then
  begin
    i := 1;
    inc(j);
    if j>1000 then
    begin
      j := 1;
      inc(k);
      if k>1000 then Break;
    end;
  end;
end;

Lässt sich nicht mehr so schön lesen, aber möglich ists .

Mir fallen grad noch ein paar mögliche Konstrukte ein... wahrscheinlich deswegen, weil ich eigentlich garnicht ins Bett will, aber muss 8)
(Und schöner wären die wohl auch nicht... *g*)

Also: Gute Nacht!
Fabian

\\edits: ohoh, die Schlechtschreibung...