Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2010
Die 0..2 hatte ich deshalb mit drin, falls doch versehentlich der tatsächliche Ordinalwert und nicht der gemappte übergeben wird. Und Defaultwerte hab ich schließlich auch, alles, was nicht passt, wird zu Pik.
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2010
Oder man schreibt sich 2 Mapping-Funktionen.
type
TSuit = (Hearts, Diamonds, Clubs, Spades);
function OrdValue(Suit: TSuit): integer;
begin
case Suit of
Hearts: Result := 13;
Diamonds: Result := 14;
Clubs: Result := 22;
Forum: Object-Pascal / Delphi-Language
by DeddyH,
23. Jul 2010
Wird denn irgendwo im Quelltext mit Ord() auf die zugewiesenen Werte zugegriffen? Ansonsten lass die Zuweisung doch testhalber ganz weg.