Bitoperationen

[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