Wert eines Bits im String ermitteln

[SirThornberry]

Delphi-Quellcode:

type
  TBitIndex = Byte;

function SetBit(const AByte: Int64; const ANewBitStatus: Boolean; const ABitIndex: TBitIndex): Int64;
begin
  if ANewBitStatus then
     result := AByte or (1 shl ABitIndex)
  else
     result := AByte and not(1 shl ABitIndex);
end;

function GetBit(const AByte: Int64; const ABitIndex: TBitIndex): Boolean;
begin
  result := AByte = SetBit(AByte, True, ABitIndex);
end;

du musst berechnen im wievielten Byte das zu prüfende Bit ist und dann übergibst du dieses Byte entsprechend an die Funktion GetBit

Delphi-Quellcode:

var BitGesetzt: Boolean;
begin
  BitGesetzt := GetBit(Byte(DeinString[ByteIndex]), BitIndexDesBytes0Basierend);