Zitat von
himitsu:
ich würde das Array dann nur andersrum anlegen
Delphi-Quellcode:
TMeinTypInternal = 0..24;
cMeinTypOrdinal: array[0..455] of TMeinTyp = (1,0,0,0,0,0,...,0,0,0,15,...);
TMeinTyp = Set of TMeinTypInternal;
in cMeinTypOrdinal müssen dann nur an den entsprechenden Stellen die Zahlen seiner Varianten stehen
und dann
if cMeinTypOrdinal[zahl] in cMeinTyp then Das ist genau das, was ich vermeiden wollte - ein grosses Array, welches nur zu einem geringen Teil gefüllt ist.
Ausserdem ist das Array jetzt redundant, da an der indexposition jeweils der index abgespeichert ist.
[
OT] ich muss grad an die Negation denken [/
OT]