ein paar [ Delphi]-Tags könnten da oben nicht Schaden ...
ansonsten hätt ich da 'ne
Exception one Excepion-Objekt ._.
Is aber auch nur 'ne
extreme Ausnahme ... 's is halt nicht so einfach aus merheren rekursiven Funktionsaufrufen und einigen Schleifen rauszuspringen -.-''
Delphi-Quellcode:
Try
...
Raise TObject(nil) at nil;
..
Except
Status := False;
End;