Set Konstanten einen Wert zuweisen

[uligerhardt]

OK, dann schau mal meinen Edit in Post #2 an. Sowas müsste gehen:

Delphi-Quellcode:

opts := [DockBasicSize_UA];
RichEdit1.Tag := Byte(opts);

und umgedreht:

Delphi-Quellcode:

opts := tDockOpts_UA(RichEdit1.Tag);
if DockBasicSize_UA in opts then
  ...

Edit: Vielleicht Word(opts) , wenn du mehr als 8 Enumeratoren hast.

[DrUArn]

Hallo Uli Gerhardt,

danke für die Hinweise.
#3 werde ich nutzen - das macht's bequemer.

#5 Tag:=byte(opts); ist eine ungültige Typumwandlung


Gruß Uwe

[uligerhardt]

Zitat von DrUArn:

Hallo Uli Gerhardt,

danke für die Hinweise.
#3 werde ich nutzen - das macht's bequemer.

#5 Tag:=byte(opts); ist eine ungültige Typumwandlung


Gruß Uwe

Lies den editierten #5.

Zu #3: Es müsste sogar for opt in opts do gehen.

[DrUArn]

Hallo Uli Gerhardt,

stimmt - mit word(Opts) wird das ordnungsgemäß umgewandelt (Staun!).

Ich schaue mir das jetzt noch mal in Ruhe an und was es wo bringt und melde mich Morgen nochmal.

Danke für's Mitdenken.

Gruß Uwe

PS. Woher weiß den Word(Opts) mit OPts:=[DockAuto_UA,DockHori_UA], daß diese tdpockopt_ua eine Potenz von zwei ist?

[himitsu]

Zitat von DrUArn:

daß diese tdpockopt_ua eine Potenz von zwei ist?

tDockOpt_UA Das ist der ENUM und der hat keine Zweierpotenz.
Da wird einfach nur blind hochgezählt.

Und bei dem SET tDockOpts_UA ist das immer so.
1 Bit = ein Wert aus dem ENUM

Und Bits in einem Byte/Word/LongWord sind zufällig Zweierpotenzen, weil das für solche ordinalen Typen so definiert ist.


1-8 ENUM-Werte = 1 Byte im SET
9-16 ENUM-Werte = 2 Byte im SET
17-32 ENUM-Werte = 4 Byte im SET
33-64 ENUM-Werte = 8 Byte im SET

Bei {$MinEnumSize 2} für 1-8 ENUM-Werte = 2 Byte im SET.