Und was wenn in der Foo entschieden wird, ob das Programm beendet werden soll oder nicht???
Delphi-Quellcode:
program Project2;
{$APPTYPE CONSOLE}
uses
SysUtils;
procedure Foo;
var
s: string;
begin
Readln(s);
if s = 'STOP' then
halt;
end;
begin
Foo;
Writeln('Laeuft noch');
Readln;
end.
Ja, man könnte dann bei Foo anstelle einer Procedure eine Funktion nutzen, die zurückliefert ob das Programmbeendet werden soll oder nicht, nur wenn man was anderes über die Funktion zurückgeben will, dann wird irgendwann der Aufwand zu groß!