LMDLights ansteuern mit Binär Werte

[renekr]

Hi,
danke für die vielen Lösungen.

Werde ich mal durchtesten welche am besten ist.

Habe mittlerweile auch was hinbekommen.

Habe ein Array of TLMDLights gemacht mit 8 LmdLights und dann eine Function

Delphi-Quellcode:

function DezInBinVorkomma(n: integer):string;
begin
  result:='';
    repeat
    if n mod 2 =0 then result:='0'+result else result:='1'+result;
    n:=n div 2;
  until n=0;
end;

Diese habe ich nochmals umgeschrieben damit ich immer 8 Bits rausbekomme.

Delphi-Quellcode:

function DezInBinVorkomma(n: integer):string;
var
i:integer;
binkorr:string;
begin
  result:='';
    repeat
    if n mod 2 =0 then result:='0'+result else result:='1'+result;
    n:=n div 2;
  until n=0;

  if length(result) < 8 then
   begin
     for i:=1 to 8-length(result)do
      begin
        binkorr:=binkorr+'0'
      end;
  end;
result:=binkorr+result;

Ist zwar nur schnell entstanden aber geht.

Danke