inkompatible Typen bei Mengen (Set)

[TomDooley]

Hallo

Ich habe folgende Menge definiert:
tMyMenge = set of(cEins,cHundert,cTausend); Nun möchte ich prüfen ob ein Integer einen Wert der Menge angenommen hat:
if (MyInteger in MyMenge) then... Leider funktioniert das nicht. Der Compiler gibt folgende Fehlermeldung aus:
Inkompatible Typen: 'Integer' und 'Enumeration' Ich denke, irgendwie muss ich MyInteger in Enumeration casten... Geht das überhaupt? Wie?

Danke und Gruss

Tom

[Christian Seehase]

Moin Tom,

das ginge so

TMyMenge(MyInteger)

[Grendel]

Oder, um sicherzustellen, daß Du nicht außerhalb des Bereiches liegst kannst Du auch mit
GetEnumName() bzw. GetEnumValue() arbeiten.

Bis neulich ...

[TomDooley]

Zitat von Christian Seehase:

das ginge so
TMyMenge(MyInteger)

Das habe ich auch probiert, bzw. if (tMyMenge(MyInteger) in MyMenge) then ... aber das tut so nicht. Ich bekomme dann die Fehlermeldung:

Ungültige Typumwandlung @Grendel:

Zitat:

Oder, um sicherzustellen, daß Du nicht außerhalb des Bereiches liegst kannst Du auch mit
GetEnumName() bzw. GetEnumValue() arbeiten.

Wie meinst du das? Soll ich auf alle drei Werte im Set prüfen?

Danke und Gruss

Tom

[Khabarakh]

Probier es mal so:

Delphi-Quellcode:

TMyEnum = (cEins, cHundert, cTausend);
TMySet = set of TMyEnum;

[..]

if TMyEnum(MyInteger) in MySet then

[Hansa]

Das sieht alles schwer nach Spekulation aus. 8) Du verwechselst einen Aufzählungstyp mit einem integer. So gehts aber nicht und darüber hat der Compiler zurecht gemeckert.

Was soll das : in bei 3 möglichen Varianten ?

Benutze ein CASE und fertig. Guck Dir die Funktion Ord an. Wahrscheinlich liegt der Fehler aber eher daran, daß der Typ zwar deklariert ist, aber keine Variable.

[BlackJack]

@Hansa: wieso spekulation? wieso kein in? der code von kabarakaback funktioniert doch einwandfrei.

[SirThornberry]

naja, ein Integer ist eben kein Enum, das ist wie Äpfel und Birnen. Ein "Set of" ist ein Byte groß und ein Integer ist 4 Byte groß. Und der "in" Operator funktioniert nur bei Typen die 1 Byte groß sind denn auf welches Byte soll sonst die BitKombination getestet werden?

[BlackJack]

ok, man sollte natürlich davon ausgehen, dass der integer auch gescheit gefüllt ist, d.h. dass das richtige der 4 bytes mit einem korrekten wert gefüllt ist. das sollte z.b. ja auch so gehen:

Code:

type TMyEnum = (cEins, cHundert, cTausend); 
var i: Integer;
    s: set of TMyEnum;
begin
i := Integer(cEins);

s :=  [cEins, cHundert];

if TMyEnum(i) in s then
  //...
end;

über den sinn von sowas lässt sich natürlich streiten (ich würde es z.b. niemals so machen), aber es ollte doch funktionieren (hab es allerdings nicht getestet).

[Hansa]

Genau !

Set of geht nur mit max. 256 Werten. Ein Integer geht aber bis ?????????? Deshalb ist IN nicht geeignet ! Wer mit 10 testet, der denkt es gehe, aber mit 300 kommt der Rest.