|
Registriert seit: 22. Sep 2004
Ort: Delmenhorst
1.338 Beiträge
Delphi 11 Alexandria
|
AW: Elegante Lösung gesucht, 3 Boolean-Werte, nur einer darf gesetzt sein
24. Feb 2016, 13:52
Wie wäre denn:
b4 := Ord(b1 and True) + Ord(b2 and True) + Ord(b3 and True) = 1;
Peter
|