verschachelte for schleifen beenden

[dizzy]

Die Formatierung ist ja grausig

Entweder wie bereits erwähnt mit nem Flag, oder du lagerst die Schleifen in eine eigene Prozedur aus, und springt dann mit "Exit" raus. Da du, vermute ich mal, i, j und k nachher noch brauchst könnte man sie als var-Parameter übergeben:

Delphi-Quellcode:

procedure Schleifchen(var i,j,k: Integer);
begin
  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 Exit;
      end;
    end;
  end;
end;

und die ganzen begin..end; könnte man sich auch sparen, so wie den Vergleich auf "true":

Delphi-Quellcode:

procedure Schleifchen(var i,j,k: Integer);
begin
  for i:= 1 to 1000 do
    for j:= 1 to 1000 do
      for k:= 1 to 1000 do
        if fun(i,j,k) then Exit;
end;

Geht auch


Gruss,
Fabian