das bit eines bytes auf 1 setzen

[gangs-taas]

danke für die schnelle antwort
ja ihr habt mir echt geholfen
dabei hatten wir heute sogar im unterricht über xor gesprochen

ich hatte irgendwie einen denkfehler

ich dachte das Value or $80 würde heißen "gib entweder Value ODER $80 zurück"

danke

[hathor]

Bit-Operationen:
http://ryulib.googlecode.com/svn/trunk/Bit.pas

[DeddyH]

Effizientes Arbeiten mit Bitmasken

[Aphton]

Zitat von hathor:

Bit-Operationen:
http://ryulib.googlecode.com/svn/trunk/Bit.pas

oder...:

Delphi-Quellcode:

// demo zu "BitStream.pas"

var
  i         : Integer;
  BitStream : TBitStream;
  BitString : String;
const
  BitAsChar: Array[TBitValue] of Char = ('0', '1');
begin
  BitStream := TBitStream.Create;
  try
    BitStream.DigitCount := 32;
    { Bits setzen }
    for i := 0 to 7 do
      BitStream.Digits[i] := bitIsSet;
    BitStream.WriteWord( 8, 0 );
    BitStream.WriteByte( 24, $FF );
    { Bits auslesen und string befüllen }
    SetLength( BitString, BitStream.DigitCount );
    for i := 1 to BitStream.DigitCount do
      BitString[BitStream.DigitCount-i+1] := BitAsChar[BitStream.Digits[i-1]];
    { Ausgabe }
    ShowMessage( 'Bitstream:'#13#10 + BitString );
  finally
    BitStream.Free;
  end;