Bits

[Rangarig]

Hi,

ich habe ein Prblem mit Bits. Ich weiß nicht so genau, wie man rausfinden kann, ob ein Bit gesetzt ist oder nicht.

Vieleicht kennt jemand ein gutes Tut über soetwas.

Thx & Mfg

[Nightshade]

Delphi-Quellcode:

function TestBit(Value : byte; bit : byte) : boolean;
begin  
  if (Value AND (1 shl bit )) = (1 shl bit) then
    result := true
  else
    result := false;
end;

Sollte so gehen...

Ansonsten guck dir mal die Befehle "AND", "OR", "NOT" an...

[Rangarig]

Danke Nightshade.

das werde ich gleich ausprobieren. Die Befehle "AND", "OR", "NOT", etc kenne ich. Habe ich schon in abfragen benutzt. Ich wusste nur nicht, wie die als Bit-Abfrage benutz werden.

[glkgereon]

ginge es nich auch kürzer so?

Delphi-Quellcode:

function TestBit(Value : byte; bit : byte) : boolean;
begin 
  result:=(Value AND (1 shl bit )) = (1 shl bit);
end;

ich hätte es jetzt spontan so gemacht:

Delphi-Quellcode:

function TestBit(Value : byte; bit : byte) : boolean;
begin
  result:=(Value and (1 shl bit))<>0;
end;

[Rangarig]

So wie Nightshade es im Beispiel gezeigt hat, habe ich es nicht hinbekommen. Ich habe es jetzt nachdem ich ein Beispiel hatt so gemacht:

Delphi-Quellcode:

function TestBit(Value : byte; bit : byte) : boolean; 
begin  
   result := ((Value AND bit) = bit));
end;

Jetzt hat sich mir ncoh eine Frage gestellt, weiß jemand, wie ich eine Konstante gleich Binär angeben kann? Bei Hexadezimal weiß ich es, aber nicht binär;

[glkgereon]

das kann so aber net funzen, oder?

hast du das mal getestet?

[Rangarig]

Ja das habe ich so getestet läuft ohne Probleme.

[glkgereon]

nein, es ist falsch!!!

ich hab 2er potenzen eingegeben -> genau 1 bit true

es müsste so sein:

1 1
2 2
4 3
8 4
16 5
32 6

es ist aber laut deiner procedure so:

1 1
2 2
4 4
8 8
16 16

[moritz]

Okya, um das ganze etwas einfacher zu machen:

Delphi-Quellcode:

function BitSet(Value: Byte; BitCnt: Byte): Boolean;
begin
  Result := (( Value AND Round ( power (2, BitCnt-1) )) = Round ( power (2, BitCnt-1) ));
end;

Beispiel:

Delphi-Quellcode:

  if BitSet (24, 4) then // TestBit (00011000, 00001000)
    ShowMessage ('Ja!');

if BitSet (24, 5) then // TestBit (00011000, 00010000)
ShowMessage ('Ja!');[/delphi]

[glkgereon]

aber das is so lang

das funzt:

Delphi-Quellcode:

function TestBit(Value : byte; bit : byte) : boolean; 
begin
   result:=(Value AND (1 shl bit )) = (1 shl bit);
end;