draw poker, hand erkennung

[zecke]

Danke! Das hat schon mal ordentlich weitergeholfen. Im Grunde hängt es bisher nur noch and er Deklaration von TKartenFarbe.

Der obere Teil:

Delphi-Quellcode:

  TKartenWert = 1..13; // 1 = AS, 11 = Bube, 12 = Dame, 13 = König
  TKartenFarbe = (kfKaro, kfHerz, kfPik, kfKreuz);
  TKartenPosition = 1..5;

Der public-Teil mit cunstructor:

Delphi-Quellcode:

public
      constructor Create(TKartenWert,TKartenPosition : integer; TKartenFarbe : string);
      property Wert: TKartenWert read FWert write FWert;
      property Farbe: TKartenFarbe read FFarbe write FFarbe;
      property Position: TKartenPosition read FPosition write FPosition;

Dann wie im Tutorial den Cunstructor im Hauptteil:

Delphi-Quellcode:

constructor TKarte.create(TKartenWert,TKartenPosition : integer; TKartenFarbe : string);
begin
  inherited create;
  TKartenWert := Wert;
  TKartenPosition := Position;
  TKartenFarbe := Farbe;           //hier meckert er inkompatible Typen
end;

Bei dieser Konstellation meckert er, "inkompatible Typen TKartenFarbe und string".

Als was muss ich denn TKartenFarbe deklarieren?

"TKartenPosition = 1..5" sah sehr nach integer aus, ebenso wie TKartenWert. Zuerst versuchte ich TKartenFarbe als string zu behandeln, aber das ging nicht.

Wenn ich mit der Maus einzeln über "(kfKaro, kfHerz, kfPik, kfKreuz);" (ganz oben bei der 1. Deklaration von TKartenFarbe) erhalte ich immerhin folgende Hints:

Zitat:

kfKaro Constant - Unit1.pas(21,19)
kfKaro = 0 - Unit1.TKartenFarbe

Zitat:

kfHerz Constant - Unit1.pas(21,27)
kfHerz = 1 - Unit1.TKartenFarbe

Zitat:

kfPik Constant - Unit1.pas(21,35)
kfPik = 2 - Unit1.TKartenFarbe

Zitat:

kfKreuz Constant - Unit1.pas(21,42)
kfKreuz = 3 - Unit1.TKartenFarbe

0,1,2 und 3. Das erinnerte mich an einen Index und ich versuchte es als integer zu behandeln. Das quasi beim Aufrufen, für Karo eine 0 steht, für Herz eine 1, etc...

Das scheint aber nicht so zu sein Das Tutorial konnte mir nicht weiterhelfen oder ich habe da etwas falsch verstanden

Bin schon dankbar, aber noch dankbarer über weitere Hilfe