Succ(TMyType) Scheint ein falsches ergebniss zu geben.

[jim_raynor]

Succ erhöht auch nur den Wert um 1. Aber warum so kompliziert. Würde bei keiner Aufzählung feste Werte vergeben. Lass ihn doch ruhig in einer Schritten hochzählen. Falls du die festgelegten Werte als Konstanten brauchst, dann bastel dir ein Konstantes Array:

Delphi-Quellcode:

type
TReiz=(RWeg=0, KaroMit1=18,HerzMit1=20,PikMit1=22,RNull=23,Kreuzmit1=24, KaroMit2=27,HerzMit2=30,PikMit2=33,NullHand=35,KreuzMit2=36, KaroMit3=36,HerzMit3=40,PikMit3=44,NullOuvert=46,KreuzMit3=48, KaroMit4=45,HerzMit4=50,PikMit4=55,NullOuvertHand=59,KreuzMit4=60);
const
  Werte: Array[TReiz] of Integer = (0,18,20,22,23,24,27,30,33,35,36,36,40,44,46,48,45,50,55,59,60);

Dann kannst ganz einfach per Werte[RWeg] darauf zugreifen

P.S: Warum gibt es 2 mal die 36?