Wie erhalten Sie die Anzahl der Elemente in einem Aufzählungstyp in Pascal?

Question

program 
    Enumeration; 
uses 
    crt; 
type 
    beverage = (coffee, tea, milk, water, coke, limejuice); 
var 
    drink:beverage; 
begin`enter code here` 
    writeln('Which drink do you want?'); 
    writeln('You have ', *** , ' choices'); 
    readkey; 
end. 

Was soll ich in '***' hier verwenden, um die Anzahl der Elemente in der Getränkeaufzählung in der Ausgabe zu erhalten? Ich habe sizeof() verwendet, aber es gibt den Byte-Wert vom Typ. Ich benutze Lazarus, fyi.

Answer 1

Succ(Ord(High(beverage))) sollte Ihnen die Anzahl der definierten Getränke geben.

Answer 2

können Sie verwenden ORD und HIGH-LOW Funktion:

ord(high(beverage)) - ord(low(beverage)) + 1 

Codes:

program 
    Enumeration; 
uses 
    crt; 
type 
    beverage = (coffee, tea, milk, water, coke, limejuice); 
var 
    drink:beverage; 
begin`enter code here` 
    writeln('Which drink do you want?'); 
    writeln('You have ', ord(high(beverage))-ord(low(beverage))+1 , ' choices'); 
    readkey; 
end. 

Ergebnis:

Which drink do you want? 
You have 6 choices