LMDLights ansteuern mit Binär Werte

[Hawkeye219]

@Ratte:
Ein beliebter Fehler: statt "mod 255" muß es "mod 256" heißen

@renekr:
Hier noch eine kürzere Variante Deiner letzten Version (ohne DIV, MOD und Stringverkettung):

Delphi-Quellcode:

function ByteToBinStr (aValue: Byte): string;
  var ii : Integer;
begin
  // Ergebnis initialisieren
  Result := '00000000';
  // 8 Bits testen
  for ii := 0 to 7 do
    // Bit Nummer i prüfen
    if Odd(aValue shr ii) then
      // Falls Bit gesetzt ist, Ergebnis anpassen
      Inc (Result[8 - ii]);
end;

Gruß Hawkeye