Bitoperationen

[Dunkelbunt27]

Hallo,

ich verstehe, was ihr meint.
Auch wenn es vielleicht unsinnig und sinnfrei ist, mach ich erstmal weiter.

Eigentlich setzt man doch ein Bit mit:

Code:

attribut:= attribut or $01;

Und entfernt es wieder mit:

Code:

attribut := attribut and not $01;

Oder?

Ich mache das wie folgt:
Button1:

Code:

attribut:= attribut or $01;
attribut := attribut and not $02;

Byte = 1

Button2:

Code:

attribut:= attribut or $02;
attribut := attribut and not $01;

Byte = 00000011

Es müsste doch 00000010 rauskommen!?

Fg Dunkelbunt

[DeddyH]

Du meinst 10 binär? Ja, das sollte eigentlich so sein. Lässt Du Dir auch zum richtigen Zeitpunkt den aktuellen Wert ausgeben?

[Dunkelbunt27]

Ja ich meine binär.
Ich denke der Zeitpunkt stimmt. Immer wenn ich mit den Pfeiltasten die PositionSpalte bzw PositionZeile bewege wird der Ihalt des Bytes angezeigt, sprich Zeichen und dazugehöriger binärer Wert ...

Edit:
Ich kenne jetzt den Fehler. Es lag daran, dass zwar die eigentlich Berechnung stimmte, sie aber für das falsche Feld ausgeführt wird.

[DeddyH]

Ich hab mal schnell ein Beispielprojekt erstellt, da stimmt alles.

Delphi-Quellcode:

procedure TForm5.Button1Click(Sender: TObject);

  function ByteToString(b: Byte): string;
  const
    BitChars: array [Boolean] of Char = ('0', '1');
  var
    Bit, Posi: Byte;
  begin
    SetLength(Result, SizeOf(b) shl 3);
    Bit := 1;
    Posi := Length(Result);
    while Posi > 0 do
      begin
        Result[Posi] := BitChars[b and Bit = Bit];
        Bit := Bit shl 1;
        dec(Posi);
      end;
  end;

var
  attribut: Byte;
begin
  attribut := 0;
  attribut := attribut or $01;
  attribut := attribut and not $02;
  ShowMessage(ByteToString(attribut));
  attribut := attribut or $02;
  attribut := attribut and not $01;
  ShowMessage(ByteToString(attribut));
end;

[Dunkelbunt27]

Danke für das Beispiel.
Dein ByteToStr ist echt gut, ich hatte es ein wenig anderst gemacht, aber das ist nicht so wichtig.
An dieser Stelle funktioniert alles was funktionieren soll, denke ich.
Ich muss jetzt nur noch interne Probleme lösen...

Danke auch an die Andere hilfsbereiten DP-Member, Dunkelbunt

[Aphton]

Zitat von Dunkelbunt27:

Eigentlich setzt man doch ein Bit mit:

Code:

attribut:= attribut or $01;

Und entfernt es wieder mit:

Code:

attribut := attribut and not $02;

Oder?

Ich mache das wie folgt:
Button1:

Code:

attribut:= attribut or $01;
attribut := attribut and not $02;

Byte = 1

Button2:

Code:

attribut:= attribut or $02;
attribut := attribut and not $01;

Byte = 00000011

Ich verstehe nicht, warum du immernoch solche Fehler machst:

Code:

// "Eigentlich setzt man doch ein Bit mit:"
attribut:= attribut or $01;
// "Und entfernt es wieder mit:"
attribut := attribut and not $02;
Byte = 1

Im Grund hast du ja schon Recht mit dem Entfernen aber du entfernst nicht das gesetzte Bit, sondern das zweite Bit.
Sagen wir einmal, Attribut habe den Wert 0.

attribut:= attribut or $01 :

Code:

   00000000
or 00000001
-----------
   00000001

attribut := attribut and not $02;

Code:

not 2:
2     = 00000010
not 2 = 11111101

    00000001
and 11111101
------------
    00000001

Du erhälts also 1 binär, was 2^0 Dezimals entspricht,

[Dunkelbunt27]

Hallo,

Zitat:

Im Grund hast du ja schon Recht mit dem Entfernen aber du entfernst nicht das gesetzte Bit, sondern das zweite Bit.

Mein Fehler, sorry, im Programm habe ich immer das richtige Bit "entfernt" weil ich ja wenn ich das erste Bit setze das 2. Ausschalte und nicht gleich wieder das erste Bit ausschalte. Der Fehler ist durch das kopieren aus dem Quelltext entstande, soweit hab ich das Prinzip schon verstanden. Trotzdem hast du recht, das es in diesem Kontext nicht richtig geschrieben ist.

FG Dunkelbunt