Goto Sprungmaken .... bekomms net hin :/

[AZRAEL]

Hi leute ich versuch hier nen Sprungpunkt zu setzen und bekomms absolut net hin:

Habe hier ein Programm mit 2 verschiedenen procedure(n) ... und will nach beenden der beiden gerade einen Goto prgstart; ausführen ... diesen hab ich direkt vor end. gesetzt d.h. außerhalb beider prozeduren. das label prgstart; steht auch außerhalb beider prozeduren direkt unter implementation .... wenn ich dass programm jezz starten will bekomm ich nur den fehler: Declaration expected but 'GOTO' found.

dieser markiert die Zeile wo dass Goto drinnen steht und der cursor ist direkt hinter GOTO


Hoffe ihr könnt mir helfen
Azrael

[Luckie]

Ausführbarer Code ist nur innerhalb von Prozeduren, Funktionen und im Hauptprogramm erlaubt.

Wenn du aus der Prozedur raus willst, nimm exit.

[jbg]

Das GoTo gehört zum Spaghetti-Code und wird nur von VB Programmierern benutzt. Das Pascal dieses trotzdem Unterstützt ist eigentlich schon hirnrissig.

[Luckie]

Wieso VB? VB ist genauso ereignisorientiert wie Delphi. Du meinst wohl Basic und diverse Derivate.

Noch zur Lösung:

Delphi-Quellcode:

procedure Wrapper;
begin
  DeineProzedur1
  DeineProzedur2;
  Mach das was beim Goto-Label passieren soll; {Anweisung, Prozedur, Funktion}
  Anweisung1;
  Anweisung2;
end;

[MrSpock]

Hallo jbg,

ich kann mich an diese Diskussion um Spaghetti Code noch gut aus meiner Studienzeit erinnern. Letztlich würde ich nicht soweit gehen, Goto komplett zu verteufeln. Ich denke, dass Object Pascal insbesonder auch mit den try ... except bzw. try ... finally Konstruktionen gute zusätzliche Struturierungsmöglichkeiten anbietet, aber ein klitzekleines GOTO macht ja aus einem Programm noch kein Nudelgericht.

[Luckie]

Aber sobald Sprung und Ziel nicht mehr auf einer Buildschirmseite sind oder gar verschachtelt sind.

Ich habe jetzt Code gesehen, da hat jemand mit Goto eine Schleife gebaut. Ich habe bestimmt eine Minute auf den Code gekuckt, bis ich kapiert haben, was da passiert. (Hinzukam es war schrecklich formatiert). Wer interesse hat: Poret-Scanner (ziemlichweit unten, zweite oder dritte Postzing über meiner Version, da veröffentlicht er den Code).

[sakura]

Zitat von jbg:

Das GoTo gehört zum Spaghetti-Code

Richtig.

Zitat von jbg:

Das Pascal dieses trotzdem Unterstützt ist eigentlich schon hirnrissig.

Falsch. Es gibt Situationen, in welchen goto durchaus seine Berechtigung hat. Viele Programmiersprachen bieten if...then, repeat...until und while...do Konstrukte an, welche die meisten goto Anweisungen überflüssig machen. Ich muss zugeben, eine goto kommt bei mir vielleicht nur einmal in ca. 50.000 Zeilen Code vor, aber es hat dann seine Berechtigung (vorw. Geschwindigkeit in "Bottlenecks").

In Assembler könnte man ohne die ganzen goto Pendandts (jmp, jnz, jz, ...) gar nicht arbeiten

......