Reihenfolge der Prozeduren

[unclesam2000]

Hallo Liebe Delphi-Praxis-Gemeinde,
ich habe ein etwas komplexeres Problem (wie ich glaube ;-))

Folgenden Code nehme ich als Grundlage:

Delphi-Quellcode:

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.

Das funktioniert soweit ganz gut. Jetzt möchte ich aber, wenn die Bedingung in test nicht erfüllt ist, dass er dann automatisch zu test2 geht. Leider geht es so, wie ich es habe nicht, da test2 ja HINTER test kommt.
Ich hoffe, ich konnte die Frage einigermaßen deutlich formulieren.

Viele Grüße
Unclesam2000

[Aenogym]

hi,

deklariere die prozeduren einfach im interface abschnitt.

Aenogym

[unclesam2000]

Hallo Aenogym,

Zitat:

deklariere die prozeduren einfach im interface abschnitt.

Ich arbeite in einer DOS-Box

Delphi-Quellcode:

$APPTYPE CONSOLE

, sorry, das hatte ich vergessen, zu erwähnen!! Und soweit ich weiss, geht das da nicht, oder?
Trotzdem schon mal danke!

Gruß
Unclesam2000

[teebee]

Deklariere die Prozeduren vorher mit forward

Gruß, teebee

[unclesam2000]

Hallo teebee,

da ich noch nicht so bewandert in Delphi bin, bräuchte ich dazu noch eine kurze Erklärung, wie ich das mache. :wiejetzt:

Danke und viele Grüße

Unclesan2000

[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.

[unclesam2000]

Super, genau das brauchte ich. Jetzt funktioniert es einwandfrei!

Vielen Dank!!

Gruß
Unclesam2000