Doppelte Schleife verlassen

[Popov]

Ich persönlich nutze dafür immer ein Boolean:

Delphi-Quellcode:

var
  a, b: Integer;
  c: Boolean;
begin
  c := False;

  for a := 0 to 10 do
  begin
    for b := 0 to 10 do
    begin
      ShowMessage('b = ' + IntToStr(b));
      if b = 1 then
      begin
        c := True;
        Break;
      end;
    end;

    if c then Break;

    ShowMessage('a = ' + IntToStr(a));
  end;

  ShowMessage('Und weiter im Programm');
end;

Wenn es etwas unkonventionell sein darf, dann kann man das auch mit Except lösen:

Delphi-Quellcode:

var
  a, b: Integer;
begin
  try
    for a := 0 to 10 do
    begin
      for b := 0 to 10 do
      begin
        ShowMessage('b = ' + IntToStr(b));
        if b = 1 then Abort;
      end;
      ShowMessage('a = ' + IntToStr(a));
    end;
    ShowMessage('Schleifen sind durch');
  except
    ShowMessage('Hallo aus Except');
  end;
  ShowMessage('Und weiter im Programm');
end;