Bitoperationen

[Dunkelbunt27]

Hallo,

Zitat:

Wertekombinationen

Wenn aber z.B. Fett Kursiv... dazukommt ist es wiederum sinnvol.

Zitat:

Blättere hier ein paar Seiten zurück ...

Du meintest das hier, oder?

Delphi-Quellcode:

var
  i: TBitRange;
  B: TBitByte;

begin
  for i := 0 to 3 do
    B[i] := True;
  Writeln( B.Value, ' - ', B.AsString );
  Readln;
end.

Ich habe jetzt alles etwas verändert und ... der Text ist dauerhaft rot...

Delphi-Quellcode:

 const
  flschwarz = 1;                //fl = Flag
  flblau    = 2;
  flrot     = 4; // schreibfehler, vorher stand hier 3
  flgruen   = 8;
  flgrau    = 16;
...
//schwarz klick
 buchstabe[PositionSpalte,PositionZeile].attribut:=buchstabe[PositionSpalte,PositionZeile].attribut OR 1;
//blaun klick
buchstabe[PositionSpalte,PositionZeile].attribut:=buchstabe[PositionSpalte,PositionZeile].attribut OR 2; 
//rot klick
buchstabe[PositionSpalte,PositionZeile].attribut:=buchstabe[PositionSpalte,PositionZeile].attribut OR 4;
...
//Vergleich
if (buchstabe[i,n].Attribut and flschwarz > 0) then
             Schreibflaeche.Canvas.Font.Color:=clblack;
if (buchstabe[i,n].Attribut and flblau > 0) then
             Schreibflaeche.Canvas.Font.Color:=clblue;
if (buchstabe[i,n].Attribut and flrot > 0) then
             Schreibflaeche.Canvas.Font.Color:=clred;

Wo wir gerade dabei sind:

Zitat:

Übrigens musst Du nicht abfragen, ob ein Flag gesetzt ist, wenn Du es "entsetzen" möchtest (falsch ist das aber auch nicht)

Sondern?

FG Dunkelbunt