Informationen aus Byte

[eisbar]

Hallo
mein Problem leigt darin das ich den Datentyp Byte habe und nun wissen möchte ob an der letzten Stelle eine 1 oder eine 0 steht? Gibt es eine Möglichkeit die 1en und 0en als string auszugeben??

mfg Eisbar

[3_of_8]

Delphi-Quellcode:

function LastBitSet(b: Byte): Boolean;
begin
  Result:=Boolean(b and 1);
end;

Delphi-Quellcode:

function BinToStr(b: Byte): String;
var I: Integer;
begin
  setlength(result, 8);
  for I:=0 to 7 do
    result[I+1]:=chr((b shr (7-I)) and 1+48);
end;

[Christian Seehase]

Moin Eisbar,


ShowMessage(IntToStr(bValue mod 2));

[3_of_8]

Ein mod ist doch deutlich langsamer als ein and, oder?

[shmia]

Hier mal eine Funktion aus der JCL (eine wahre Schatzkammer):

Delphi-Quellcode:

// Auszug aus Unit JclLogic.pas
// [url]http://sourceforge.net/projects/jcl[/url]
const
  // Constants defining the number of bits in each Integer type
  BitsPerByte     = 8;
type
  TBitRange = Byte;
function TestBit(const Value: Byte; const Bit: TBitRange): Boolean;
begin
  Result := (Value and (1 shl (Bit mod BitsPerByte))) <> 0;
end;

Mit TestBit kann man jedes Bit prüfen:
if TestBit(meinByte, 7) then ShowMessage('höchstwertiges Bit gesetzt');

[eisbar]

Vielen Dank
das funktioniert alles super. Jetzt habe ich aber ein weiteres Problem. Ich habe einen string der sieht ca. so aus: 01100100 und möchte diesen jetzt in einem Byte speichern. Wie sieht solch eine Funktion aus?

[jmd anders]

wie wärs mit: erst ins dezimal system umwandeln? such einfach bei google
gibt echt viele beispiele

[JasonDX]

Zitat von jmd anders:

wie wärs mit: erst ins dezimal system umwandeln? such einfach bei google

Oder in der CodeLib: *klick*

greetz
Mike

[Hawkeye219]

Hallo,

Zitat von eisbar:

mein Problem leigt darin das ich den Datentyp Byte habe und nun wissen möchte ob an der letzten Stelle eine 1 oder eine 0 steht? Gibt es eine Möglichkeit die 1en und 0en als string auszugeben??

Um zu prüfen, ob eine Ganzzahl ungerade ist, bietet die Sprache PASCAL seit den ersten Versionen die Standardfunktion Odd() an.

Gruß Hawkeye

[Khabarakh]

Zitat von jmd anders:

wie wärs mit: erst ins dezimal system umwandeln?

Könnte man, aber wozu denn? Das Simpelste ist es doch wohl, 3_of_8s Methode einfach umzukehren.