Elegante Lösung gesucht, 3 Boolean-Werte, nur einer darf gesetzt sein

[Darlo]

Zitat von hoika:

Ah so: elegant und trotzdem leserlich sollte es sein.

Dann

Zitat von p80286:

Delphi-Quellcode:

w:=0;
if B1 then inc(w,1);
if B2 then inc(w,1);
if B3 then inc(w,1);
bok:=W=1;

Gruß
K-H

als assembler code und

Delphi-Quellcode:

{Assembler-Code macht folgendes:
w:=0;
if B1 then inc(w,1);
if B2 then inc(w,1);
if B3 then inc(w,1);
bok:=W=1;}

drüber