also ich mache das so:
Delphi-Quellcode:
procedure leuchten(led1,led2,led3,led4,led5,led6,led7,led8:boolean);
var x:integer;
begin
x:=0;
// soll LED 1 leuchten ?
if led1 = true then x:= x +1;
// soll LED 2 leuchten ?
if led2 = true then x:=x+2;
// soll LED 3 leuchten ?
if led3 = true then x:= x +4;
{...}
Out32(888,x);
end;
(Der Source ist ungetestet aus'm Kopf aufgeschrieben....
)
hibbert