Einzelnen Beitrag anzeigen

MarcoZ

Registriert seit: 20. Mär 2006
Ort: Hamburg Kirchwerder
7 Beiträge
 
Delphi 2007 Enterprise
 
#1

Array of Record mit Konstanten füllen

  Alt 26. Aug 2006, 11:14
Hallo zusammen!

Stehe gerade irgendwie völlig auf dem Schlauch und bräuchte mal einen Denkanstoß. Für ein Kartenspiel möchte ich ein konstantes Array mit allen im Spiel vorhandenen Spielkarten erstellen. Dazu habe ich mir zwei Enums definiert: Eines hält die vier Farben, das andere die verfügbaren Werte. Weiterhin ein Record-Typ, der jeweils ein Feld vom Typ TFarben und TWerte enthält. Und von diesem Record-Typ möchte ich jetzt ein Array von 48 Elementen definieren, das lediglich die Karten enthält, sortiert nach der Standard-Trumpffolge, wie sie im Spiel sortiert sind. Aber ich bekomme die Klammerung nicht ganz hin: Entweder sind ihm zu wenig Klammern da, oder er meckert, dass 96 Elemente nicht den 48 angegebenen entsprechen.

Hier mein Beispiel:

Delphi-Quellcode:
type
  TKartenfarbe = (Kreuz, Pik, Herz, Karo);
  TKartenWert = (Neun, Bube, Dame, Koenig, Zehn, Ass);
  tEinfacheSpielkarte = record
    Farbe: TKartenfarbe;
    Wert: TKartenWert;
  end;
const
  KartenImSpiel = 48;
  AlleKarten : array[1..KartenImSpiel] of tEinfacheSpielkarte = (
    ((Farbe:Herz), (Wert:Zehn)),
    ((Farbe:Herz), (Wert:Zehn)),
...
   ((Farbe:Herz), (Wert:Neun)),
    ((Farbe:Herz), (Wert:Neun))
  );
Hat irgendjemand hierzu eine Idee? In der Form habe ich das noch nie gemacht und bin irgendwie gerade ganz

Vielen Dank im Voraus!

Herzliche Grüße
Marco
  Mit Zitat antworten Zitat