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

[DeddyH]

Ganz einfach: die Karo 7 bekommt den Index 0, Karo 8 Index 1 usw. bis zum Kreuz As mit Index 31. Durch die Division bekommst Du nun über diesen Index heraus, um welche Karte es sich handelt. Etwa so:

Delphi-Quellcode:

type
  TKartenIndex = 0..31;

...

procedure ShowCard(Index: TKartenIndex);
const Farben: array[0..3] of string = ('Karo','Herz','Pik','Kreuz');
      Werte: array[0..7] of string = ('7','8','9','10','Bube','Dame','König','As');
begin
  ShowMessage(Format('%s %s',[Farben[Index div 8],Werte[Index mod 8]]));
end;