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

[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

[hoika]

Hallo,
ja, mit dem Inc und Hochzählen sieht elegant aus
Da kommt man nach 17:00 nicht drauf ...

Ah so: elegant und trotzdem leserlich sollte es sein.

Jetzt schmeisse ich mal den Profiler an und mal schaun, was am schnellsten bei 1.000.000 Vergleiche ist.


Danke


Heiko

[p80286]

Zitat von hoika:

Hallo,
ja, mit dem Inc und Hochzählen sieht elegant aus
Da kommt man nach 17:00 nicht drauf ...

Hmm, übersichtlich, ja als Array..
(Das XOR "gefällt" mir besser. -- Shit nicht zu ende gedacht)
(kommt wohl darauf an mit welchen Hilfskonstruktionen man zuerst gearbeitet hat)

Laß mal hören was effektiver ist.

Gruß
K-H

[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

[SProske]

Zitat von TiGü:

bOK := B1 xor B2 xor B3;

Ergibt für 3mal True wieder True

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

Könnte man auch schreiben als

bOK := IfThen(B1, 1, 0) + IfThen(B2, 1, 0) + IfThen(B3, 1, 0) = 1;

[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.

[Sir Rufo]

Zitat von 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.

Korrekter wäre die Form bOk := Ord( b1 ) + Ord( b2 ) + Ord( b3 ) = Ord( true );

[himitsu]

B1=True Wobei man das ja eigentlich nicht macht.

Die mathematischen Lösungen mit Ord gehen natürlich nur unter der Annahme, daß man davon ausgeht, daß nur True oder False drin steht.

Wobei True = not False, bzw. True <> "True".
Der Delphi-Boolean kennt ja 254 "True" und ein False, deswegen auch niemals B1=True

[EricMeyer]

oder sowas

function CountTrues (ABoolean :array of Boolean):Integer
for i ...
result := result + ((-1)*strtoint(booltostr(ABoolean [i])))

[Delphi-Laie]

Zitat von himitsu:

B1=True Der Delphi-Boolean kennt ja 254 "True" und ein False, deswegen auch niemals B1=True

Fangen die modernen Delphi-Compiler (so ab Version XEx) diese Programmierschludrigkeit nicht endlich ab? Genaugenommen ist das ja kein Fehler, denn rein von der booleschen Logik ist true=true.

Und das "=true" passiert vermutlich auch so manchem gestandenen Programmierer dann und wann, das ist einfach mental zu aufdringlich. Dito: "=false" anstatt "if not"....