Man muss bei den Enums dieser Art nur aufpassen, dass nicht irgendwann mal der Preis der ermässigten Kategorie 1 der selbe ist wie die normale Kategorie 2. Da könnte man eher sowas machen:
Delphi-Quellcode:
TRang = (Rang1,Rang1erm,Rang2,Rang2erm,Rang3,Rang3erm);
const Preisliste : array[0..6] of Double = (15,14,13,12,10,9)
//führt dann zu
PreisR[aRang] := Karten[aRang] * Preisliste[aRang]