Hi,
ich habe mir folgenden Artikel (
Link ) durchgelesen, weil ich selbst so etwas versuche. Ich arbeite zur Zeit mehr mit c++ und kenne mich mit Klassen und Typen bei Delphi nicht sehr gut aus. Das will ich ändern...
Ich habe folgendes übernommen:
Delphi-Quellcode:
type
TKartenWert = 1..13; // 1 = AS, 11 = Bube, 12 = Dame, 13 = König
TKartenFarbe = (kfKaro, kfHerz, kfPik, kfKreuz);
TKartenPosition = 1..5;
TKarte = class(TObject)
private
FWert: TKartenWert;
FFarbe: TKartenFarbe;
FPosition: TKartenPosition;
public
constructor TKarte.create(Wert: TKartenWert; Position: TKartenPosition; Farbe: TKartenFarbe);
// Hier gibt's nen Error, weil TKarte undefiniert ist
// Wieso?
property Wert: TKartenWert read FWert write FWert;
property Farbe: TKartenFarbe read FFarbe write FFarbe;
property Position: TKartenPosition read FPosition write FPosition;
end;
var
Cards: TCards;
TBlatt: Array[1..5] of TKarte;
/////////////
constructor TKarte.create(Wert: TKartenWert; Position: TKartenPosition; Farbe: TKartenFarbe);
begin
inherited create;
FWert := Wert;
FPosition := Position;
FFarbe := Farbe;
end;
Wieso ist TKarte undefiniert?
Gruß