Goto in andere Procedure...oder gibts ne Alternative?

[malo]

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