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