GOTO vermeiden ?

LOOP
   SWITCH typXX
   CASE #Typ20
      ;Do Typ20 stuff
      EXIT   ;aus dem loop springen
   CASE #Typ30
      ;Do Typ30 stuff
      EXIT   ;aus dem loop springen
   DEFAULT
      ;Do none-typ stuff
   ENDSWITCH
ENDLOOP

Ich weiss zwar nicht was genau du machen willst, aber ev. hilft dir das.

switch / case ist die Lösung für Dein Problem. Genau, wie der Kollege schon beschrieben hat.

Pass Deine Variablen/Eingänge dem an und Deine Sache geht.

Hallo,

Zitat von BigHorses

Was kommt bei SWITCH typXX rein ??

die Variable 'typXX' in simeonw's Beispiel ist eine Variable, die Informationen über den Teiletyp enthält. Das kann grundsätzlich eine Ganzzahl-, Zeichen- oder Aufzählungsdatentyp sein. In simeonw's Beispiel ist es letzteres.
Man könnte also ohne viel Aufhebens mit folgender Ergänzung:

ENUM Teiltyp TYP20, TYP30
DECL Teiltyp typXX


...; do common stuff (um mal bei simeonw's Terminologie zu bleiben :) )


IF TYP20 THEN typXX = #TYP20
ENDIF
IF TYP30 THEN typXX = #TYP30
ENDIF


Switch typXX
[usf...]

alles einfach anpassen.

Kleiner Tip noch am Schluss. Lies dir einfach mal die Doku zum Thema Switch/Case durch. Da ist alles mit Beispiel erklärt.

Gruß ... gooselk

Hallo,

mit der Switch Case-Anweisung geht es bestimmt.
Fuer zwei Faelle gehts aber einfacher.

if Typ20 then
Typ20()
else
if Typ30 then
Typ30()
endif
endif

Ob die zwei goto's die Lesbarkeit des Codes so schwerwiegend beeintraechtigen sei mal dahingestellt.

Gruss Stefan