Hiho,

ich hab hier nen C## Code.

markieren

Code:

ENUMDEF(KS_ACCESS)
#define KS_AC_NONE         ENUMVAL(KS_ACCESS, 0) /* no access at all     */
#define KS_AC_READ         ENUMVAL(KS_ACCESS, 1) /* read access          */
#define KS_AC_WRITE        ENUMVAL(KS_ACCESS, 2) /* write access         */
#define KS_AC_READWRITE    (KS_AC_READ | KS_AC_WRITE)

#define KS_AC_DELETEABLE   ENUMVAL(KS_ACCESS, 0x10000000)
#define KS_AC_RENAMEABLE   ENUMVAL(KS_ACCESS, 0x08000000)
#define KS_AC_LINKABLE     ENUMVAL(KS_ACCESS, 0x04000000)
#define KS_AC_UNLINKABLE   ENUMVAL(KS_ACCESS, 0x02000000)

    /* object can act as a factory */
#define KS_AC_INSTANTIABLE ENUMVAL(KS_ACCESS, 0x20000000)
    /* object is part of another object */
#define KS_AC_PART         ENUMVAL(KS_ACCESS, 0x80000000)

hier werden in einer Cardinal Bits gesetzt.
Kombinationen wie z.B: 0xBE000002 können auftreten.
Ich bin nun am Rätseln, wie ich nun aus der Zahl die entsteht, herauslesen kann, ob nun Das KS_AC_PART gesetzt ist, oder eben nicht. Oder das KS_AC_READ ... etc. Sitze aufm Schlauch.

Könnte so aussehen:

zusammenfalten · markieren

Delphi-Quellcode:

function Test(bits, mask: cardinal): boolean;
begin
  // Result := bits and mask <> 0; // funktioniert nur mit Ein-Bit-Test
  Result := bits and mask = mask; // testet auch Bit-Felder
end;

begin
  if Test(KS_ACCESS, KS_AC_PART)
    then ShowMessage('Stimmt')
    else ShowMessage('Falsch');
end;

Grüße vom marabu

Du solltest mit den AND-Befehl zum Ziel kommen.

Hier mal ein wenig Theorie:
Du hast ein 8-Bit-Zahl (aka Byte ) 123 und du willst testen, ob das 6. Bit (=2^5=32) gesetzt ist. Da ergibt sich folgende Darstellung

markieren

Code:

____1111011B
AND 0010000B
------------
=  0010000B

In Delphi würde das Ganze so aussehen:

markieren

Delphi-Quellcode:

Zahl:=123;
TestZahl:=32;
if (Zahl and Testzahl)=Testzahl then
  //Oleee

Auf diese Weise kannst du testen, ob ein Flag gesetzt ist oder nicht

//btw: Beim Schreiben ist mir aufgefallen, das in der Delphi-Hilfe ein Beispiel dafür drin ist, dort aber die Bedingung anders lautet: if (Zahl and Testzahl)=Zahl .... Irgendwie bin ich nun ein wenig verwirrt. Aber das was ich oben geschrieben habe, ist das was ich in der Ausbildung gelernt habe.

Hmm unter welchen Stichworten hast Du denn in der Hilfe geschaut?

Aber zunächst einmal Danke für die Antworten.
/me hat noch große Wissenslücken .

enum mit definierten werten gibt es im delphi sprachumfang nicht.

enum's fangen immer bei null in delphi an.

z.b.:

markieren

Delphi-Quellcode:

type
  einEnum = (eE_Wert1, eE_Wert2, eE_Wert3);
  einSetEnum = set of einEnum;

Zitat von generic:

enum mit definierten werten gibt es im delphi sprachumfang nicht.

enum's fangen immer bei null in delphi an.

Nope, folgendes ist ebenso möglich:
  TBla = (bLoop = 1, bJupp = 2, bHolla = 4);