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