inkompatible Typen bei Mengen (Set)

[TomDooley]

Hallo

Ich habe folgende Menge definiert:

Delphi-Quellcode:

tMyMenge = set of(cEins,cHundert,cTausend);

Nun möchte ich prüfen ob ein Integer einen Wert der Menge angenommen hat:

Delphi-Quellcode:

if (MyInteger in MyMenge) then...

Leider funktioniert das nicht. Der Compiler gibt folgende Fehlermeldung aus:

Delphi-Quellcode:

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

Delphi-Quellcode:

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:

Zitat von Christian Seehase

das ginge so

Delphi-Quellcode:

TMyMenge(MyInteger)

Das habe ich auch probiert, bzw.

Delphi-Quellcode:

if (tMyMenge(MyInteger) in MyMenge) then ...

aber das tut so nicht. Ich bekomme dann die Fehlermeldung:

Delphi-Quellcode:

Ungültige Typumwandlung

@Grendel:

Zitat:

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

:gruebel: 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 :

Delphi-Quellcode:

in

bei 3 möglichen Varianten ? :shock:

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. :mrgreen: