Übungsprogramm "Kinokarten"

[EdAdvokat]

Danke nahpets, sehe ich mir sofort an - gefällt mir gut.
Habe empfehlungsgemäß ein Enum gebildet:
...
implementation

{$R *.dfm}

uses ABOUT;

type TRang = (Rang1=15, Rang1erm=14, Rang2=13, Rang2erm=12, Rang3=10, Rang3erm=9);
var Rang: TRang;

const {Rang1 = 15;
Rang1erm = 14;
Rang2 = 13;
Rang2erm = 12;
Rang3 = 10;
Rang3erm = 9; }
PlGes = 100;
frPlR1Vorg = 20;
frPlR2Vorg = 30;
frPlR3Vorg = 50;...

nun will ich mit dem Enumtyp eine Multiplikation ausführen und den Preis für Rang 1 zu berechnen, doch es wird
eine Fehlermeldung ausgegeben:
[dcc32 Fehler] uKinokarten.pas(227): E2015 Operator ist auf diesen Operandentyp nicht anwendbar

procedure TKinokarten.BerechnePreisR1; //Preis R1 berechnen
begin
if Form1.ckbxR1.Checked then PreisR[1]:=Karten[1] * Rang1erm
else if not Form1.ckbxR1.checked then
PreisR[1]:= Karten[1] * Rang[1]; //Rang1;
end;

Was mache ich falsch? Gehe ich mit Rang[2] ins Rennen, also mit dem Ordinalwert meckert er auch und will ein
array deklariert sehen, doch das ist ja nicht vorgesehen.
Mit den const-Werten hat alles geklappt!

[nahpets]

Hier könnte man eventuell sowas machen: (Achtung, nur hingedaddelt und nicht getestet)

Delphi-Quellcode:

type 
  TRang = (Rang1=15, Rang1erm=14, Rang2=13, Rang2erm=12, Rang3=10, Rang3erm=9);

  TKinokarten = class
    private
      Karten          : array[TRang] of integer;
      gekaufteKarten  : array[TRang] of integer;
      freiePlR        : array[TRang] of integer;
      gekaufteKartenGesamt,
      freiePlGesamt : integer;

      PreisR        : array[TRang] of Currency;
      ZwSu          : Currency;
      MWSt          : Currency;
      Preis         : Currency;
...

// Klappt so mit einer Prozedur für alle Ränge.
procedure TKinokarten.BerechnePreisFuerBeliebigenRang(aRang : TRang);
begin
  PreisR[aRang] := Karten[aRang] * Ord(aRang);
end;

Bekommt man jetzt weitere Ränge dazu oder irgendwelche weiteren Ermäßigungen ..., so muss man nur den Typ tRang erweitern, der Rest läuft automatisch.

[EdAdvokat]

Danke Stefan, das hat geklappt. Nun muss ich nur noch die Trennung TForm1 und TKinokarten vollziehen.
Da muss ich mir noch was einfallen lassen. Nochmals vielen Dank!

[Jumpy]

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]

[SProske]

Man könnte auch das enum als Array-Enumerator verwenden

const Preisliste : array[Low(TRang)..High(TRang)] of Double = (15,14,13,12,10,9)

[EdAdvokat]

Hallo zusammen, Dank Eurer Unterstützung und mit einiger Anstrengung habe ich das Programm in eine "vorsichtige Angebotsphase" versetzt und hoffe auf wohlwollende Kritik an meinen bescheidenen Künsten. Ich danke nochmals all jenen Usern, die mir weiter geholfen haben. Es gibt auch noch eine Variante, in der ich das Prog. in 2 units geteilt habe (Hauptformular und Kartenberechnung). Ich hoffe alle Fehleingabemöglichkeiten verhindert zu haben.

[EdAdvokat]

Hallo zusammen, es kann doch nicht sein, dass die jetzige Fassung wirklich schon annähernd perfekt ist - oder? Ich reiche nunmehr die geteilte Variante zur Kritik, denn die ist sicher nicht perfekt, denn mit der vorgenommenen Teilung bin ich selbst nicht so ganz glücklich, kann aber nicht feststellen was und wo ich etwas anders machen müßte. Es funktioniert jedoch so wie die vorhierige Variante. Für Tipps wäre ich dankbar.