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