Reihenfolge der Prozeduren

[Dax]

Du musst einfach den Prozedurenkopf wie in einem Interface-Abschnitt hinschreiben und ein forward dahintersetzen. Danach die Prozedur ausschreiben wie im Implementation-Abschnitt

Delphi-Quellcode:

procedure test2; forward;
procedure test3; forward;

procedure test;
begin
if Bedingungen=true then
  Anweisungen
  weiter:=2;
end;

procedure test2;
begin
if Bedingungen=true then
  Anweisungen
  weiter:=3;
end;

procedure test3;
begin
if Bedingungen=true then
  Anweisungen
  weiter:=1;
end;

procedure zusammen;
begin
if weiter=1 then test
else if weiter=2 then test2
else if weiter=3 then test3;
end;


begin

zusammen;

end.