Problem beim Schleifen verlasseen

[crasher1985]

Hallo ich hab ein kleines problem ich habe eine verschachtelte schleife in der form

Code:

for 1
 for 2
  if 1
   for 3
    if 2
     Bedingung

nun möchte ich das die ich wenn die unterste bedingun erfüllt ist die die oberste for Schleife (im Bsp. for 1) hochzählen .

also mcöhte ich quasi aus allen Schleifen bis auf for 1 rausspringen!

[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

[SirThornberry]

das einfachste wäre wohl aus den For-Schleifen jeweils While-Schleifen zu machen welche eine zusätzliche Abbruchbedingung haben so das For2 und For3 abgebrochen werden können wenn die Bedingung erfüllt ist.

[crasher1985]

danke euch das war so offensichtlich das ichs net gerafft habe