verschachelte for schleifen beenden

[Union]

Zitat von theomega:

Hallo Leute,
ich habe ein kleines Problem:
ich habe 3 ineinander verschachelte forschleifen die bei einer bestimmen beidung alle abgebrochen werden sollen.

Beispiel

Delphi-Quellcode:

for i:= 1 to 1000 do begin;
for j:= 1 to 1000 do begin;
for k:= 1 to 1000 do begin;
if (fun(i,j,k)=true) then begin;
break;  // Der springt...
break;
break;
end;
// ... hierher
end;
end;

sollte laut Delphihilfe so funktionieren, tut es aber nicht, break bricht nicht alle schleifen ab. Wer kann mir ne Lösung veraten?

Danke
TO

Schon das erste break überspringt die anderen. Du machst das am besten mit einem booleschen flag:

Delphi-Quellcode:

beenden := false;
for i:= 1 to 1000 do begin;
  for j:= 1 to 1000 do begin;
    for k:= 1 to 1000 do begin;
      if (fun(i,j,k)=true) then begin;
        beenden := true;
        break;  
      end;
      if beenden then break;
    end;
   if beenden then break;
  end;
end;