das bit eines bytes auf 1 setzen

[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;