OWBasic

Start INTRO Alphabetischer Index

Deklaration von Aufzählungstypen

ENUM <name>=(<constant 1>[=<value>], <constant 2>[=<value>], ...)

Durch die ENUM-Direktive können eigene Aufzählungstypen deklariert werden. Variablen von diesem Typ kann nur eine der bei der Deklaration angegebenen Konstanten zugewiesen werden.
Soll einer ENUM-Variable ein Integerwert zugewiesen werden, so muß dieser explizit konvertiert werden:

<varname>=ENUM\<type>(<integer value>)

Die Werte der Konstanten werden durchnumeriert. Wird für eine Konstante ein Wert angegeben, so ist der Wert der nächsten Konstanten jeweils 1 höher.
Beispiel:

ENUM daytime_t=(MORNING=0, NOON, AFTERNOON, EVENING, NIGHT)
CONST daytimes$=("morning", "noon", "afternoon", "evening", "night")

PROC show_daytime daytime\daytime_t
 PRINT daytimes[INT(daytime)]
 IF daytime=#NIGHT THEN
  POWEROFF
 ENDIF
ENDP

show_daytime #NOON

Start INTRO Alphabetischer Index