Problem beim Schleifen verlasseen

[sirius]

Entweder du setzt eine Variable, oder du nimmst Exceptions.

Variante 1:

Delphi-Quellcode:

var mybreak:boolean;
begin
  for 1
    mybreak:=false;
    for 2
      if 1 
        for 3 
          if 2 
            mybreak:=true; //Bedingung
            break;
          end
        end
      end
      if mybreak then break
    end
  end
end

Variante 2:

Delphi-Quellcode:

type myException=class(Exception);

begin
  for 1
    try
      for 2
        if 1 
          for 3 
            if 2 
              raise myexception.create('Fehler du Trottel!')//Bedingung
            end
          end
        end
        if mybreak then break
      end
    except
      on myexception do begin
        
      end else raise;      
    end
  end
end