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;

[Christian Seehase]

Moin Rangarig,

Zitat:

Zitat von Rangarig

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

das ist dann aber dem Zufall zuzuschreiben ;-)

Zitat:

Zitat von Rangarig

...wie ich eine Konstante gleich Binär angeben kann?

Nur so, wie Nightshade und Gereon das schon geschrieben haben, mit shl.

Delphi-Quellcode:

const
  Acht = 1 shl 3;

einen Präfix für Binärdarstellung wie $ bei Hexadezimal gibt es in Delphi (leider) nicht.

[hboy]

geht auch so

Delphi-Quellcode:

containsbits := Boolean(Wert AND Bitmaske);

geht aber nur mit 8 bit glaub ich. Ausprobieren. ansonsten kannst dir ja au

Delphi-Quellcode:

const
  bit00 = $0001;
  bit01 = $0002;
  bit02 = $0004;
  bit03 = $0008;
  bit04 = $0010;
  bit05 = $0020;
  bit06 = $0040;
  bit07 = $0080;
...
  bit31 = $8000;

definieren und prüfen mit

Delphi-Quellcode:

  containsbit := (wert and bit12)<>0;

[glkgereon]

aber dann musst du immer in hex umrechnen....

[SirThornberry]

nicht die schnellste variante aber sie funzt (nehm ich immer)

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;

[glkgereon]

ich versteh da nur bahnhof... :gruebel:

kannst du das event. ma kurz erläutern?

was is TBitIndex?

[SirThornberry]

Sorry, hab nicht gesehen das ich da nen extra typen verwendet hab. (ist jetz im editierten Beitrag mit drin). TBitIndex gibt an um das wievielte Bit es sich handelt und ist nix anderes als ein Byte.
Ich habs als TBitindex definiert falls ich den Type später noch ändern will (dann brauch ich nur die Typdeclaration ändern und musst das nicht bei allen Proceduren ändern)

[Rangarig]

Dein Funktion glkgereon:

Zitat:

Delphi-Quellcode:

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

Aber Schaut diese Funktion nicht das linke Bit neben den in bit angegeben? ODer verstehe ich das nicht. :gruebel:

Das zu prüfende Byte habe ich wie folgt aufgebaut

Delphi-Quellcode:

.
.
.
const
    V1 : byte = 1 shl 0;
    V2 : byte = 1 shl 1;
    V3 : byte = 1 shl 2;
.
.
.
procedure TForm1.Button1Click(Sender: TObject);
begin
   V := V xor V1;
   Flags_Aendern;
end;
.
.
.
procedure TForm1.Flags_Aendern;
var
   b : byte;
begin
   CheckBox1.Checked := TestBit(V, V1);
   CheckBox4.Checked := TestBit2(V, V1);
   CheckBox2.Checked := TestBit(V, V2);
   CheckBox5.Checked := TestBit2(V, V2);
   CheckBox3.Checked := TestBit(V, V3);
   CheckBox6.Checked := TestBit2(V, V3);
end;
.
.
.
function TForm1.TestBit(Value : byte; bit : byte) : boolean;
begin
   result := ((Value AND bit) = bit);
end;

Vieleicht habe ich hier aber auch schon einen Fehler gemacht. TestBit2 ist Funktion, wie [quote="glkgereon"] sie gezeigt hat.


Wenn ich die 0. 2er Potenz (sprich das 1.Bit) nachschauen möchte ob es gesetzt ist mache ich das nach Folgender Gleichung auf den Papier:

00000001 -> zu Prüfende Byte (Value)
00000001 AND -> Prüf Byte (bit)
________
00000001 -> Ergebnis (result)

bzw.:

00000000 -> zu Prüfende Byte (Value)
00000001 AND -> Prüf Byte (bit)
________
00000000 -> Ergebnis (result)
(Beispiel mit 8 Bits)
Zumindest habe ich das in der Berufsschule so gelernt.

[Rangarig]

sry, mir ist vorhin beim Fernsehen :idea: aufgefallen, das Eure Funktionen nur ein Bit überprüft, ob es auf 1 gesetzt ist bzw. ob nicht. Ich übergebe meiner Funktion aber eine Maske.

[Christian Seehase]

Moin René,

Zitat:

Zitat von Rangarig

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

Dann ist diese Aussage ja doch zutreffend gewesen ;-)

Die Funktion sollte dann aber besser TestBits heissen, denn es werden ja mehrere Bits gleichzeitig geprüft.

[Rangarig]

Mahlzeit Christian,

Zitat:

Zitat von Christian Seehase

Die Funktion sollte dann aber besser TestBits heissen, denn es werden ja mehrere Bits gleichzeitig geprüft.

Ja das stimmt demnach sollte der 2. Parameter auch nicht bit sondern mask heißen.