Delphi-PRAXiS - Einzelnen Beitrag anzeigen - Elegante Lösung gesucht, 3 Boolean-Werte, nur einer darf gesetzt sein

**HeZa**

Für den Datentype Boolean (WordBool ausgenommen) funktioniert folgendes:
bOk := Ord(b1) +Ord(b2) +Ord(b3) = 1 Ich ergänze:
Wenn man so etwas wie b1 := Boolean(11); macht wird es auch hässlich.

HeZa Registriert seit: 4. Nov 2004 Ort: Dortmund 182 Beiträge Delphi 10 Seattle Professional	#9 AW: Elegante Lösung gesucht, 3 Boolean-Werte, nur einer darf gesetzt sein 22. Feb 2016, 18:13 Für den Datentype Boolean (WordBool ausgenommen) funktioniert folgendes: bOk := Ord(b1) +Ord(b2) +Ord(b3) = 1 Ich ergänze: Wenn man so etwas wie b1 := Boolean(11); macht wird es auch hässlich. Geändert von HeZa (22. Feb 2016 um 18:16 Uhr) Grund: Ergänzung
	Zitat

Einzelnen Beitrag anzeigen

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