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:

zusammenfalten · markieren

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ß

Weil du doch TKarte gerade erst definierst, lass das TKarte weg, dann stimmts.

constructor TKarte.Create(Wert: TKartenWert; Position: TKartenPosition; Farbe: TKartenFarbe);

Ah, war einfach

Danke.