Zitat von
gammatester:
Da ist doch nichts komisches dran. Wenn man will, kann man um jede Anweisung ein begin ... end setzen. Das sind keine zwei Rümpfe sondern compound statements.
Nein.
Zitat von
Luckie:
Was er gemacht hat, ist seinen Code noch mals durch Blöcke zu gliedern. Wobei es auch eine zusätzliche Leerzeile getan hätte.
Auch nich.
Die Syntax einer Prozedur (Kopf, Deklaration, Rumpf) lässt doppelte Begin/End-Blöcke im Prozedurrumpf nicht zu.
Oder anders gefragt:
Bei wem kompiliert das:
Delphi-Quellcode:
Program Project2;
{$APPTYPE CONSOLE}
Procedure Outer;
Procedure Inner;
Begin
Writeln('Inner');
End;
Begin
Inner;
End;
// Zweiter Block
Begin
Inner;
End;
Begin
Outer;
End.
Bei mir jedenfalls nicht.
Ich tippe auch auf ein Fragment mit fehlendem (äußerem) Prozedurkopf.