Was ist an diesen try und except block falsch?

[himitsu]

jupp, es ist halt nicht immer besser alles auf Biegen und Brechen aufzuzeilen

Billiges Beispiel:

Delphi-Quellcode:

procedure ProcedureX;
begin
  WriteLn('1');
  WriteLn('2');
  WriteLn('3');
  WriteLn('4');
  WriteLn('5');
end;

und nochmal mit 2 Zeilen ... ich frag micht was da nun übersichtlicher ist
(wenn hier die Zahlen nicht in den Befehlen drinstehn würden, würden viele wohl nichtmal richtig erkennen können in welcher Reinfolge hier was ausgeführt würde)

Delphi-Quellcode:

procedure Procedure1;
begin
  WriteLn('2');
  WriteLn('3');
end;

procedure Procedure2;
begin
  Procedure1;
  WriteLn('4');
end;

procedure Procedure3;
begin
  WriteLn('1');
  Procedure2;
end;

procedure ProcedureX;
begin
  Procedure3;
  WriteLn('5');
end;