Bitoperationen

[Dunkelbunt27]

Danke, super.
Damit kann ich was anfangen

EDIT:
Wegen der Vollständigkeit:

Delphi-Quellcode:

function IntToBin(Int: Integer): String;
var
  i : Integer;
begin
  Result := '';
  for i := 7 downto 0 do
  Result := Result + IntToStr((Int shr i) and 1);
end;

function BinToInt(Binary: String): Integer;
var
  i : Integer;
begin
  Result := 0;
  for i := Length(Binary) downto 1 do
  Inc(Result, StrToInt(Binary[i]) * 1 shl (Length(Binary) - i));
end;

EDIT2:
Bin etwas verwirrt... wollte eigentlich nur Schruftfarben mit Bits kodieren....

FG Dunkelbunt

[Dunkelbunt27]

Wer das Problem mit mir teilt:
http://www.delphipraxis.net/95180-ef...bitmasken.html
ein gutes Tutorial von DeddyH, danke an dieser Stelle.

FG Dunkelbunt

[DeddyH]

Danke für die Blumen

[Dunkelbunt27]

Hallo,

Ich muss mich aber doch nochmal melden.
Ich habe mir nun Bits angelegt um die Farben von Text zu steuern, zum testen.
Aber es funktioniert noch nicht....
Es sieht bis jetzt so aus:

Delphi-Quellcode:

type
TBuchstabe = record
               Zeichen  : char;
               Attribut : byte;
             end;
...
 const
  flschwarz = 1;                    //Geändert!
  flblau    = 2;
  flrot     = 4;
  flgruen   = 8;
  flgrau    = 16;
...
var
  buchstabe       : array of array of TBuchstabe; 
...
procedure TForm1.schwarzClick(Sender: TObject);
begin
 buchstabe[PositionSpalte,PositionZeile].attribut:= $FF shr 7 shl 7;    //1. Bit setzen
    //Andere Farbbits ausschalten
    if  buchstabe[PositionSpalte,PositionZeile].attribut and flblau > 0 then
        buchstabe[PositionSpalte,PositionZeile].attribut :=
           buchstabe[PositionSpalte,PositionZeile].attribut and not flblau;
end;
...
procedure TForm1.blauClick(Sender: TObject);
begin
   buchstabe[PositionSpalte,PositionZeile].attribut:= $FF shr 7 shl 6;    //2. Bit setzen
    //Andere Farbbits ausschalten
    if  buchstabe[PositionSpalte,PositionZeile].attribut and flgruen > 0 then
        buchstabe[PositionSpalte,PositionZeile].attribut :=
           buchstabe[PositionSpalte,PositionZeile].attribut and not flgruen;

    if  buchstabe[PositionSpalte,PositionZeile].attribut and flrot > 0 then
        buchstabe[PositionSpalte,PositionZeile].attribut :=
           buchstabe[PositionSpalte,PositionZeile].attribut and not flrot;

    if  buchstabe[PositionSpalte,PositionZeile].attribut and flgrau > 0 then
        buchstabe[PositionSpalte,PositionZeile].attribut :=
           buchstabe[PositionSpalte,PositionZeile].attribut and not flgrau;
end;
...
procedure buchstaben;                                                     
var i,n  : integer;
begin
  for i := 1 to AnzahlSpalten  do
    for n := 1 to AnzahlZeilen  do
       begin     // Bit Abfragen
          if (buchstabe[i,n].Attribut and flschwarz > 0) then
             Form1.Canvas.Font.Color:=clblack;

          if (buchstabe[i,n].Attribut and flblau > 0) then
             Form1.Canvas.Font.Color:=clblue;

          if (buchstabe[i,n].Attribut and flrot > 0) then
             Form1.Canvas.Font.Color:=clred;

          if (buchstabe[i,n].Attribut and flgruen > 0) then
             Form1.Canvas.Font.Color:=clgreen;

          if (buchstabe[i,n].Attribut and flgrau > 0) then
             Form1.Canvas.Font.Color:=clgray;

        Form1.Canvas.TextOut(spalten[i],zeilen[n],buchstabe[i,n].zeichen);
       end;
end;

Ich hoffe das reicht um mein Problem nachzuvollziehen.

FG Dunkelbunt

[DeddyH]

Zitat:

buchstabe[PositionSpalte,PositionZeile].attribut:= $FF shr 7 shl 7;

Schau einmal, was Du hier tust: Du verschiebst 255 um 7 Stellen nach rechts, so dass 1 dabei herauskommt. Diese 1 verschiebst Du nun wieder um 7 Stellen nach links, Resultat ist dann 128. D.h. alle von 128 abweichenden Flags sind garantiert nicht gesetzt, so dass sich der anschließende Code erübrigt. Übrigens musst Du nicht abfragen, ob ein Flag gesetzt ist, wenn Du es "entsetzen" möchtest (falsch ist das aber auch nicht).

[Dunkelbunt27]

Ähm, ...

Wie kann ich das denn sonst machen ich hatte mir gedacht:
$FF = 11111111
1111 1111 shr 7 = 0000 0001 shl 5 = 0010 000
Dann habe ich an der 3. Stelle ein Bit

...
FG Dunkelbunt

[DeddyH]

Attribut := $20; //oder die entsprechende Konstante [edit] Mir fällt gerade auf, dass Dein $16 nicht richtig ist, das muss entweder einfach 16 oder $10 heißen. [/edit]