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
