Übungsprogramm "Kinokarten"

Thema durchsuchen

Ansicht

Themen-Optionen

Übungsprogramm "Kinokarten"

Ein Thema von EdAdvokat · begonnen am 8. Dez 2016 · letzter Beitrag vom 16. Jan 2017

Vorheriger Beitrag

Nächster Beitrag

Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.740 Beiträge

Delphi 6 Enterprise

#34

AW: Übungsprogramm "Kinokarten"

20. Dez 2016, 08:26

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:

markieren

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]

Ralph