Was hindert dich daran, eine boolsche Variable zu erstellen, und die abzufragen?
Delphi-Quellcode:
label Ende; //SprungMarke
var bEnde: boolean = false;
procedure Output(Error: Boolean; Value: String);
begin
if Error then
begin
WriteLn(Value+'Fehler');
bEnde := true;
end
else WriteLn(Value+'OK');
end;
begin
OutPut(Init,'Init...');
if not (bEnde) then OutPut(FileInit,'FileInit...') else goto Ende; //oder exit;
if not (bEnde) then OutPut(Analyse,'Analyse...') else goto Ende;
if not (bEnde) then OutPut(FileUnInit,'FileUnInit...') else goto Ende;
if not (bEnde) then OutPut(UnInit,'UnInit...') else goto Ende;
Ende: ;
end.
So ungefähr hätte ich das jetzt prinzipiell gemacht.
Ist
imho die Variante, wo man am wenigsten für nachdenken muss
Auch, wenn die
Exception-Möglichkeit schick ist, und weniger Aufwand bedeutet