Mischalgorithmus Fehler

[DeddyH]

Sehe ich auch so. Hier einmal ein Ansatz (im Editor heruntergetippt, daher komplett ungetestet):

Delphi-Quellcode:

type
  TFarbe = (Karo, Herz, Pik, Kreuz);
  TWert = (Sieben, Acht, Neun, Zehn, Bube, Dame, Koenig, Ass);
  
  TKarte = class
  private
    FFarbe: TFarbe;
    FWert: TWert;
    function GetDisplayname: string;
  public
    constructor Create(AFarbe: TFarbe; AWert: TWert);
    property Farbe: TFarbe read FFarbe;
    property Wert: TWert read FWert;
    property Displayname: string read GetDisplayname;
  end;
  
const 
  Farben: array[TFarbe] of string = ('Karo', 'Herz', 'Pik', 'Kreuz');
  Werte: array[TWert] of string = ('7', '8', '9', '10', 'Bube', 'Dame', 'König', 'As');
  
function TKarte.GetDisplayname: string;
begin
  Result := Format('%s %s', [Farben[FFarbe], Werte[FWert]]);
end;

constructor TKarte.Create(AFarbe: TFarbe; AWert: TWert);
begin
  inherited Create;
  FFarbe := AFarbe;
  FWert := AWert;
end;

[Matze1848]

Danke für die schnellen Antworten. Ich versteh nur nicht ganz wo ich diesen Quelltext einfügen soll und inwiefern sich eine procedure darauf bezieht. Ich krieg andauernd einen Fehler, class könnte hier nicht deklariert werden und/oder = solle da stehen und wrong declaration..

[DeddyH]

Ich habe mal eine kleine Demo erstellt, ich hoffe, das hilft Dir weiter. Erweitern musst Du sie allerdings selbst