Byte-Wert in 8 Bool-Variablen anzeigen - wie am einfachsten?

[Helmi]

Hallo,

ich habe ein Byte und 8 Boolsche Variablen.

Wie kann ich am besten die 8 Bool-Variablen je nach Wert des Bytes ansteuern?

gibts da eine procedure dafür oder etwas ähnliches?

[alzaimar]

Komische Frage, weil man Variablen nicht ansteuert...
Um zu prüfen, ob das N.te Bit (N=0..7) gesetzt ist, kannst Du das hier machen:

Delphi-Quellcode:

Function IsBitSet (aByte : Byte; aBit : Byte) : Boolean;
Begin
  Result := (aByte and (1 shl aBit)) <> 0;
End;

[Helmi]

hallo

sorry - man beschreibt Variablen - man steuert sie nicht an!

Deine function ist leider nicht das was ich brauche.

Ich habe ein Byte und je nach Wert des Bytes sollen die Variablen beschrieben werden.

[Dax]

Delphi-Quellcode:

type
  TBoolByteArray = array[0..7] of Boolean;

function ByteToBoolArray(B: Byte): TBoolByteArray;
var i: Integer;
begin
  for i := 0 to 7 do
    Result[i] := (B shr (7-i)) and 1;
end;

Ist das eher was?

[Khabarakh]

Oder allgemein:

Delphi-Quellcode:

// Binäre Darstellung eine Speicherstelle der Länge ASize (in Byte) als
// dynamisches Boolean-Array
function GetBits(const AValue; const ASize: Cardinal): TBooleanDynArray;
var
  i: Integer;
begin
  SetLength(Result, ASize * 8);
  for i := 0 to ASize * 8 - 1 do
    Result[i] := PByte(Integer(@AValue) + i div 8)^ and (1 shl (i mod 8)) <> 0;
end;

[add] @Dax: Du weißt einem Boolean ein Byte zu . [/add]

[Helmi]

@Dax, @Khabarakh: irgendwie bekomm ich eure beiden Functions nicht zum laufen

bei Dax-Function bekomm ich "[Fehler] Unit1.pas(110): Inkompatible Typen: 'Boolean' und 'Integer'" bei
Result[i] := (B shr (7 - i)) and 1; bei Khabarakh: "Inkomplatible Typen" bei
  SetLength(Result, ASize * 8); Sorry!

[Dax]

Result[i] := ((B shr (7 - i)) and 1) = 1; Sorry, so sollts gehen

[Helmi]

Zitat von Dax:

Result[i] := ((B shr (7 - i)) and 1) = 1; Sorry, so sollts gehen

Du bist spitze!

Vielen Dank - jetzt gehts!

[Khabarakh]

Zitat von Helmi:

bei Khabarakh: "Inkomplatible Typen" bei
  SetLength(Result, ASize * 8);

Wo sollen da inkompatible Typen sein? Mit Delphi 6 läuft es jedenfalls .

[Helmi]

Zitat von Khabarakh:

Zitat von Helmi:

bei Khabarakh: "Inkomplatible Typen" bei
  SetLength(Result, ASize * 8);

Wo sollen da inkompatible Typen sein? Mit Delphi 6 läuft es jedenfalls .

bei dem Result