Vielen Dank Euch allen,
was ich mir nun gebaut habe:
Delphi-Quellcode:
var
Kontakte,z,z1 : byte;
DasEmpfangeneByte : string;
Begin
Kontakte:=ord(DasEmpfangeneByte); //Das empfangene Byte ist aus der Schnittstelle als String eingelesen
// und wird erst mal umgewandelt...spielt hier aber erst mal keine Rolle...
z1:=1;
for z:=1 to 8 do begin bit[z]:=Kontakte and z1; z1:=z1*2; end;
if bit[1] <> 0 then Hauptform.SeSkinCheckBox1.checked:=true;
if bit[2] <> 0 then Hauptform.SeSkinCheckBox2.checked:=true;
if bit[3] <> 0 then Hauptform.SeSkinCheckBox3.checked:=true;
if bit[4] <> 0 then Hauptform.SeSkinCheckBox4.checked:=true;
if bit[5] <> 0 then Hauptform.SeSkinCheckBox5.checked:=true;
if bit[6] <> 0 then Hauptform.SeSkinCheckBox6.checked:=true;
if bit[7] <> 0 then Hauptform.SeSkinCheckBox7.checked:=true;
if bit[8] <> 0 then Hauptform.SeSkinCheckBox8.checked:=true;
end
Also so geht es erst mal.
Ist ebend blöd, dass man die 8 CheckBoxen nicht mit einem Befehl gleichzeitig, sozusagen in dem man die BitMaske drüberlegt, aktivieren kann.
Aber Ihr habt mir erst mal erfolgreich weitergeholfen. - Danke!