LMDLights ansteuern mit Binär Werte

[TeronG]

hmm .. das Thema hatten wir doch schonmal .. (muss ich wissen war von mir ^^)
Hier

z.B. so:

Delphi-Quellcode:

type TBitArray = array[0..15] of boolean;

...

function WordToBit(eingang:Word): TBitArray;
var
  m,i : integer;
begin
  for i := 15 downto 0 do begin
    m:= 1 shl i;
    if eingang >= m then begin
      result[i] := true;
      eingang := eingang-m;
    end else result[i] := false;
  end
end;