Bitweise Operatoren

[THuman]

Hallo,
ich versuche gerade bitweise Operatoren in Delphi zu benutzen, aber ich bekomme es nicht richtig hin.
So soll es in etwa "aussehen":

Delphi-Quellcode:

const 
  flagA = 2;
  flagB = 4;
  flagC = 8;

var flags: integer;

flags := flagA + flagB;
IF (flags AND flagA) THEN ..

Es erscheint immer der Fehler "Ausdruckstyp muss Boolean sein" für die Zeile,in der das then steht.

Wäre nett, wenn mir damit jemand helfen könnte
Danke!

[xaromz]

Hallo,
IF (flags AND flagA) = flagA THEN .. So stimmt's.

Gruß
xaromz

[THuman]

Danke für die schnelle Antwort, jetzt funktioniert es!

[Christian Seehase]

Moin THuman,

erst einmal herzlich willkommen hier in der Delphi-PRAXiS.

Was mir an Deinem Code noch aufgefallen ist:

flags := flagA + flagB; Du solltest bei Flags niemals mit + (oder evtl. -) arbeiten, nur mit OR bzw. AND, da Du die Zahlenwerte nicht immer kennen kannst, und es durchaus die Möglichkeit gibt, dass ein Flag mehrere gesetzte Bits hat.
Dann kann es bei normalen arithmetischen Operatoren zu unvorhersagbaren Ergebnissen kommen.

[THuman]

Ok, danke für den Tipp! Dazu habe ich auch noch was in einem älteren Thread gelesen.

[Glühwürmchen]

sorry,

wie kann man einen eigenen Beitrag wieder löschen ?

[Dax]

Zitat von Glühwürmchen:

sorry,

wie kann man einen eigenen Beitrag wieder löschen ?

Garnicht. Wobei ich nicht mal finde, das du dich entschuldigen müsstest. Dein Beitrag war durchaus konstruktiv und stellte nur eine Alternative zu xaromz' Vorschlag dar.

[Glühwürmchen]

Das bruhigt mich einigermaßen.
Ich kam nämlich beim Schreiben mächtig durcheinander...


Zu dem Thema bitweise "operieren" hätte ich jetzt auch noch ne Frage:

Delphi-Quellcode:

iKlein := 1;
iGross := 9;

Ist es egal ob ich schreibe

IF iKlein AND iGross > 0 THEN ... oder

IF iGross AND iKlein > 0 THEN ... ?

[brechi]

Ja ist es. Da beim Ergebnis nur noch die Bits gesetzt sind, die bei beiden gesetzt waren.

[Glühwürmchen]

Danke.

Eigentlich wußte ich das schon mal.
Aber neulich versuchte ich das Bitweisige Operieren meinem Cheffe näher zu bringen mit dem Erfolg, daß er mich Bit für Bit verunsichert und durcheinander gebracht hat.

Jetzt sehe ich aber wieder klar.