Kartenspiel: Wie Karten "kodieren" (Wert, Farbe)?

[Panthrax]

Delphi-Quellcode:

type
  TSuit = (suDiamond, suHeart, suClub, suSpade);
  TCardValue = (cvSeven, cvEight, cvNine,...);
  TCard = record
    Suit: TSuit;
    Value: TCardValue;
  end;