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

[Dax]

Delphi-Quellcode:

type TBooleanDynArray = array of Boolean;

[Khabarakh]

Zitat:

Zitat von Helmi

Zitat:

Zitat von Khabarakh

Zitat:

Zitat von Helmi

bei Khabarakh: "Inkomplatible Typen" bei

Delphi-Quellcode:

  SetLength(Result, ASize * 8);

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

bei dem Result

F1 bei "TBooleanDynArray" drücken -> Unit Types einbinden und nicht einfach irgendetwas als Typ deklarieren :wink: .

[negaH]

Delphi-Quellcode:

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

function ByteToBooleanArray(Value: Byte): TBooleanArray;
var
  I: Integer;
begin
  for I := Low(Result) to High(Result) do
  begin
    Result[I] := Odd(Value);
    Value := Value shr 1;
  end;
end;

Gruß Hagen

[Grishnak]

Schau dir auch mal TBits aus der Classes-Unit an!

[Robert Marquardt]

Die JCL enthaelt in JclLogic.pas BitsToBooleans und BooleansToBits. http://jcl.sf.net