|
Registriert seit: 5. Jan 2005
Ort: Stadthagen
9.454 Beiträge
Delphi 10 Seattle Enterprise
|
AW: Elegante Lösung gesucht, 3 Boolean-Werte, nur einer darf gesetzt sein
22. Feb 2016, 18:41
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.  Korrekter wäre die Form bOk := Ord( b1 ) + Ord( b2 ) + Ord( b3 ) = Ord( true );
Kaum macht man's richtig - schon funktioniert's 
Zertifikat: Sir Rufo (Fingerprint: ea 0a 4c 14 0d b6 3a a4 c1 c5 b9 dc 90 9d f0 e9 de 13 da 60)
|