1 Frage zur Komponenten-Erstellung

[tigerman33]

Zitat:

Delphi-Quellcode:

const
  kwKrAs = TSpielkarte(1);  // (K)arten(W)ert (Kr)euz(As)s
  kwKrKo = TSpielkarte(2);  // (K)arten(W)ert (Kr)euz(Ko)enig
  ...

TSpielkarte ist ein Klassentyp! Kein Wunder dass das nicht funktioniert. Es müsste heißen:

Delphi-Quellcode:

const
  kwKrAs = TKartenwert(1);  // (K)arten(W)ert (Kr)euz(As)s
  kwKrKo = TKartenwert(2);  // (K)arten(W)ert (Kr)euz(Ko)enig
  ...

[usnzi02n4m]

entschuldigung, das war mein fehler habe da auch

Delphi-Quellcode:

const
  kwKrAs = TKartenwert(1);  // (K)arten(W)ert (Kr)euz(As)s
  kwKrKo = TKartenwert(2);  // (K)arten(W)ert (Kr)euz(Ko)enig
  ...

stehen, hab die Konstanten gerade eben von Hand hier im Forum eingefügt und mich schlichtweg vertan. Hab also TKartenwert(x) in der Konstantendekleration stehen und es kommt dennoch die Fehlermeldung: "'KrAs' ist kein gültiger Integerwert."

grüsse
markus

[Nightshade]

Wie wäre es mit :

Delphi-Quellcode:

type
  TKartenFarbe = ( kfKreuz, kfPik, kfHerz, kfKaro );
  TKartenWert = ( kwSieben, kwAcht, kwNeun, kwZehn, kwBube, kwDame, kwKoenig, kwAss );

  TKarte = class(TGrapicControl)
  [...]
  published
    property Farbe : TKartenFarbe read FFarbe write SetFarbe;
    property Wert  : TKartenWert read FWert write SetWert;
  end;

[usnzi02n4m]

Hallo,

wollte mal das Thema abschliessen und erwähnen wie ich letztendlich das Problem gelöst habe. Meine ursprüngliche Idee, einen numerischen Typ zu verwenden und dann Konstansten zu definieren, habe ich nach etlichem Rumprobieren verworfen.
Jetzt hab ich die Ideen von SirThornberry & tigerman33 aufgegriffen und eine eigene Klasse TKartenwert erstellt, die drei "published"-Eigenschaften hat: Farbe, Symbol und Nummer. Wird ein Wert gesetzt werden dann die anderen automatisch angepasst.
In der eigentlichen Spielkarten-Komponente habe ich nun eine Eigenschaft "Wert", welche vom Typ TKartenwert ist.

mfG
Markus

PS: Kompliment an die Forums-Teilnehmer, so ein gutes Forum findet man selten im Netz...